<1B>B*«MW (JP) «2) & ^ # 1^ ^ ^ CA) 



#^¥8-292866 

(43)^HB 8 ^(1996) 1U? 5 0 



(51)IntCL e 
G0 6F 3/14 

H 0 4 N 5/00 
5/445 



3 4 0 



F I 

G 0 6 F 3/14 

H0 4N 5/00 
5/445 



3 4 OA 
3 4 OB 
A 
Z 







mam* 


*IS* ^*-firo»2i 


ol (±mm 


<2l>fflJ£#^ 


$&ig¥8- 73020 




595119464 








X-f • 5V • ■ TV • 7-fK-X 


(22) mis B 


^8^(1996) 3^280 












T^'J*-&*H. 33134 




(31)flS$fclfc£3B#^ 


0 8/4 1 2 3 9 3 






(32)ffi5fc0 


1995^3^280 




^CMl^r-F 2333 




(33)«5&t££3gB 


*H (US) 






- -f 






T^U*-&*H 60565 










3-h 1413 






(74) m A 


2f?l± PASS IE* 


(mo«) 













TO 

m 

S3 
I 

CD 

m 

o 
O 

"D 

-< 



(54) [»91®«ft] 



(57) mm mke#) 

ri«*T*.-5«£*W«#fc-**.*. 




1 

frbms £SlfR-t-5£?gi:::fc5^-C. 

tit mm-tz»m.\z&mi*imx~hz> z. t a>&i:&m t -r 
sri =sr#m t -raw** i fE&wjgiB. 

lif#JS3] SSSr^tSfcftrofgli, 
2 i^7EW^Sr«^-t-S m 2 <D#g: <t /«£ 5 r t 

<£>3£B. 

[if#ig5l MEtt'>3ftfc*m»*2&5E-<?*$£i: 

b 1-5IS*IS 4 IE«tW^B 0 
[if#*g6] MIE#eS^»*aK-f vy-fV^ft 

B 1 <0{iB(C*3ft 5 $2 JS £ =" V h n — jv 

t£eK*5»t-5^M£ 3 V K n — ju-t 3 tztfXDm 2 ©MO 
* * v i: a>?> ft 5 JSISSSfJffli^g «r«tr ^ b b -T 5 
»** 5 12«tW3£B„ 

liS*^7] MEi^h$nfc*31l±3&7ES31cD2& 
5t^mT-fc>9. 3&7cli'J>ft< <h tt>^O£0*ilWJH4 

i: Sr#m <t i- 5 if *rg 4 IE® <o£!B 0 
3§f#*S7E*cWilfi 0 

ft fi»r:Jo It 3^15 h n— ^fSfcferof 2 <0*fW 
^^t. fig** y^rtwftBKistt.a^-ffcSrriv h 



(2) ^58^8-292866 

2 

USB Sr^tf r t £*H8 t +■ 5 ifjfc*! 8 IE® ©3£B. 
[IS*«10] #ffiw^aSr-1r5' h • Xy* 

St. 

^UfSirs/ h • \-yV° - tfy ^^AS^#l3^fE#m^'r 
10 nfcTV±<omi<0*H£S{^=Sr^Xgt, 

■r— ^Srv-cyu^ y >?-tZ>TMb* 

7^^^ y V^-ra7t*W^2W^!l5:WiM^*#-t-2)*I 
1ST V±<D% 2 ©»Bl!*fl%S:*-t-iei: . 

— T^iftism (o-y-yy/ir— y^v^^? y 
20 st. 

iKrlE»»#lcJ:*»2»eaa!R^J5£:t-C. una 

ty h • h y7" • ^^^^^tfJ|S^2(^-^7'^'/l'— 7"<0 
[if *ig 1 1 ] tfJSE#*a*-y-^-/Wx-^g:{fIg 
^ -yur- ^ w ^ 1 U9s SrSff i" 5 IS t . 

Iif^iSl3] ilPSfflp^fiwil^^i? vw^iblaS 

S:3Ur^tfCi€r!it®i-t-5if*iil 2IE«<0*ffi 0 
[if 1 4 ] ffreiSmffltt&RalMriaatttf* vco 

40 vs«a$r*^i-5 «t 9 {ctfrfE-fe y h • h ? y • # v >? * 
*w <o #:t3xfi£Miw-£tpr t z&mb-rzn&ig 1 

3 IE^OT*i* 0 

[if 1 5 1 m&mm%m%iU*>mnmiRrt* ><o 

i"?)XS^M^^tfCi:Sr4f®i:-t-Slf*ril 3tetn 

[if *rs 1 6 ] '>/«£ < tti ^Pfl<75^F^cofc«)«0'>/«e 
50 < b 3 0 Oro<@* W^ir^^>'i'W#*a^^v J 3.— /u^ 



20 



Slit, L «^2te^;, „ KSraf -^ 



(3J 



10 



¥8-292866 

To o o i j 



5 

7/ • a— • t^^^w aw^c 

^T^i^f^/wr^i:^/^ H64 0X 
4 8 0 tr^-fe/UT&ia^fcTii. — ^ = 5 

6 4 0x4 8 0 tr^-t/uojfeitsr^r-raavtra-^t 

^e^^co^ ^ y — >0£feK:o# 6 4 0X4 8 0 tf^iryu 
t L < f4-tiij«± t Jfctt LTitfe^iSt > try 3. T/U5fejg 

a^^■f-*fcft^^v^i^■cv^fc<0"e*i^fi. -y— tr^ffi 
Mm\z X 9 ttffRSril-ST?* htyZ>9^ ^iift**Srtt 

[0 0 0 3] TVtJW^SlOftJIffjSfetLt, &© 
«WftifKttV^«C5#ia (^Utfa^t^^ 40 

3 0 -nfixuifcD^^y->ic-ft^J:t9^<cofta 

^3M^5e w<0± 5*i££"CM\ 1 OOcott^ 
W±cD^^^^u^-y/u-y— tr^-etti 5^51 



' 4£B8 ¥8-292866 

6 

*tt#S:*U u lftf)&^#as#oU:j4gi-#* 

[0 0 0 4] 

^ y 3. ^^f M©^- * m S SrlPMl: a«**s Jio 

tcttftairtofco 3 0 oe*±o^-^^yu^6Tv#ia 

RtifcftWTVWlOTi/^* t**fcflEiaofc*jS6 
T^-fe^^TIEttlBttWS (storage asset 

[0 0 0 5]«P^@ftft X — *«e©*»4^-ir 

[0 0 0 6] #*91tf>®J©BWtt, ^^f-Cffiffl-t-S© 
[0 0 0 7] 



7 

[0 0 0 8] m-tZ\z x *&W<Dl>i:mmmzl:H 
tf, ±i&L/c@($l4, ^gMSirfcitSfc 

[0009] *ftw<om<Dmm\^3:]n,\i:, ±^Lfcgw 

14, m^^^iSr^^icig^^^-^^^^-^^ 

%£i8:i&T : bm&)X~~ J r — CD 7 *—7y Urn — 
— ?*I4, ffi^#«?^ffl^^S4x5 0 y-'!4, TV 

y-^^i^!?, tL<iiiga/^sm^=>- 

■r ^filc <fc 9 mm-i-Z, 1t tf> i?^ -/^ 

[0010] 2C 

i^mtommcDwm] mizgrn-t-zt. fur ct 

V) 1 012. tBSg^-Jr-T'/H 4&fr\^X J t-y h • h 
s*?'- (STB) 1 2fc««£ixtl*S 0 ST 
B 1 2.143- fc. ttt>iom^-r/;u/D^7^ 
»t5^-y;H6l:8fiJiiTl^, TV10 
14, fctiliNTSCMrofue'^ *q p nf£-r u tf, 

#*&iSrjM^-f5«t 5JZSTB 1 2ro»)f^$r$)^)-f--5fc*b 

L< 147 y — X^—XCDltV 2 2Sr^UT 30 
STB 1 2 icy >^$*XT^3. 
10 0 1 1 ] ®2£r#H8L-r. STB1 2 £r J; 9 L< 
lESfi-f*. STB 12(4, ^-y/H 6 ±XAt>{S^ 

^■X-h^btK ■MtLi-i^y hm^-X-h^otK TVi 

* 3 0 Sr^i--5„ ^— tVu^* v* — 7 = ^^ 3 014, 
S*foA<*K±0CPU3 4fc«tt;Sj, h ,- O v5. K^ifi, 
^3 214, CPU 3 4X®.mZKZ,frtf>>r-zfjUl 6 
Jr^/coTgm^Hfc^i^^/Htffii:, CPU34^b 40 
-7— 70i~r 3 OIC-gjgSixfcirv^Mg 

4§-g\ CPU 3 4A>b<ora$gtfnKo;W4-ir— 
*~ 7l -< 3 OSrtf-LT^-y/H 6^*n.gI$n-5 0 
[0 0 12] 2?*rtl^^3 2li*DXLT, CPU 3 4 14* 
3 6 ^LTROM3 8 t RAM4 0 fcKffiK 
S*lTH*. ROM3 8I4, «l6©«t//ifS:(|«e-t-5 
fcfefc, CPU3 4lr,tt)||tT$n-5^l— 
-7u?7AZ-gjj o ft^t^tf, RAM4 0I4, C 
PU 3 4 I'-toT^ff ^ix^^-^U— 7"^- >-yyu 50 



,; 4$B8 ¥8-292866 

8 

AO^F^SWfc^wfEg^^-^S-S^-r-So RAM 
4 014, ^yyH6^t,g<g$^ lo^l'-f^ 
^D^7Aiayhn-720 (13 1 Id [2]^) frh 

2>£r§m-r3KI4, CPU3 4*Sx<^4 2§r7>LT = ^ 

??*tt«#fc-Ct'* i 5-T5ICI4, CPU34*ift 
V^/i'BB** « tit lr/<* 46Sr^LTSTBf^^ 
4 8 i:SM$ix, STB7^7 , l'/( , 4 8S:Sl 

[0 0 13] 113 14, =Vhn-v2 0W$f*LV^HSS 
WSrfl*-*-. =»^hn-7 2 0l4, Jifcg fcflgfEtTV* 
fclifftJty hi/a-^r (VCR) <r>M&coiMmffl 
ffl%£W.<r>£ yiz&ftZtixii^Z. = > b n — 9 2 014, 
0~ 9 &fl-i-£g££0)*— K5 0SrWi" 

3. =^ba-72 0!4, -hf6]#^f$5 2, Tl^^^fP 
5 4, *JS^gl5 6, £it^PP5 8, 2S±r6]#5*c 

0*JJ:Ut2a±rti#^BP6 2iSr*-*-a. 
— 92 0l4Sfc, iru-^ f (u) ^^64, 
^ (X) 7Ki?>6 6, fcivrav^^-fr (?) ^^^6 

■C<0*flStti--«T, ^Vhn-720»rhb©191 

[ooi4] *%pj<D-r^^— ■7=.'f x^mii^tmr 

5 7T-^L/c^l4, /S< 2o«^7^II»A^5 0 ^ 

— Sr^KL, *^$K-5W^lr7^/w^ — Sr7)>lt-5 «t 
P^ffiV>e>ix5 , t«)T-*>9, ^205*7*14, El6ro«t 

KIS*I4, 9coftB»nQ09 (t^twfty^^ 

^ y Cftb©58*itt, ^l^*7*ic 

i^IK$Ji5t, ^®#I4, ny(.D-7 2oi:J: 

#.BV ^ C I" ± p |c T 5 - A -5 ifWtb^ 

KBI^I4, ^77TvTLfcii©^2©^7^roSffl«5 



9 

f4, iitt, o£01»S«»tt*& 
4frfc*20>*9;*<aWRtt. *M6»l«it$rff?X 

[0 0 1 5] *DAT, bT«HBi-S r^u- 

[0 0 16] BI3*3±t)«ia4Sr#fiHi-Si:. 3>hn- 
B<z?«*4 0 014, fflfiftf?HH1s<K «J»#OTV 1 0 

77^W-h7=a-4 0 2l:it A — tf — (;*- 
V^^K) 4 0 4, 0 ^^^a^ 

408, TV410, TVtr)412, ifTV4 1 

4, 7tV^4 1 6i3<tO + M*>3 18^7 

R AM 4 0 im2\zm^) ^IStft £ Hfcx — * ±T-Jlfr 

5. t>cDT-fe£ 0 *f 77^^*-K^=a-4 0 2** 

HSJx-cv^5o wOffaft^yrii, ny^D- 720^) 
3^P#*>5 2-5 6*3j:t/2fi^pp3j?^ ^6 0, 6 2 

hV=a-4 0 2ll 7U-A4 2 0tl^ 

s^fcHu floaty T<z>£»as*S 

TV^^V4 1 Ofl oMtR (u) ^^^64 SrflsfbS-fr 

^nfcisfeco^^s 0 o&mxiz>o mi4, $,t4ooi 

Jw**5 0 0*s|i3SWi-S4oTaix5o <&*>Sft8Wlw 
(X) *^^6 6Srf^»i-S^i:»cJ:!7*Y^-fe^Slx 



(6) #§8 ¥8-292866 

10 

atSOttlsHR^^rVfeyu (X) sKi^SrfflM- 

zz.t\z± vm^4 0 o^s-mts&spjffi-e&a. 

[0017] El 5 14, rp^j a^7r>fW 

— K^=a— 4 0 2^t^Tl:I/j:9SCJ: ?KLT3i 
ixfc rrvj i^-c^itSitfc^r-f 

— 5 0 2-C**ixfc«2apif^>«*5 0 0S:^i- o 

a»»t7-</^yy^sn5t**)5 5. 7 7 >f^- 

K^^a— 5 0 2(4, t>t>?5 04, "O^ — t^r 4 5 
0 6,^5 0 8, ^^x^K5 10, KXS12 

— hV~^ — 4 0 2 77^f/^K^a- 
5 0 214, 3^^-720 (03 dU^) <D$kffl7$# 
^5 2--5 6*3±T/2S^EP/tf*^6 0, 6 2i^BS 

20 its z bizxv mM^tmwi-r^ r t y 

tJ?%59]^7^/u?!iy^S:/Tto H5-CJ4, ^-J- 
1Z.&ZW$6<0&7fiifi9jtl, RAM 4 0 (BI2^ia^) \Z 

* y ^asfrtoi-iao 

[0018] O 6 Sr#fiHi"5 fc . 6 0 0 f4, 5fcfiE0> 
B#£iJ {^OBl"Ctt^F«6Wr3 0») lrfTfoh,TV*5 fco 
30 Sr^i~ 0 -t-^T^-r wif#j|a<7?«|/hSixfc*3S6 0 2 
*4, (3 6(r^$n^ft(DB#^iJ|rtT^)tLTV^t>^Sr^ 
-To *8/hSixfc*a6 0 214, t/ofc9 t«BBS««Slx 

—"T U fcT iw t o bV^C t *3 Shfc*3R 6 

0 2lc:^^TEj3U$tb7t#^^^7 p lc^^-->£:ffi^s 

^)tfc59o Lfetfot, £S/h£n*:^§i6 0 2 

ftfcsn-ct^5. ±rfii#^Pn5 2*5it^Tr6]#*ep5 4 

(4, ^rix-^^, *is1r*?<ny-7*fiv— ^©JS/hSixfc* 
a6 0 2<7)±Ti:, */h£ftfc*W-S**jftfc*BJ: 
9 t>fc"r^rj£v^aKl>-f ^K!>6 0 4 $r-^<5o^t& 
•TSSitSo ffi/h$ttft.^t%6 0 2 Iw-tofcflPKNx. y T 
^tb!4, ±tU<ttT^HJt7C"C*>4. -hf^l#^fP6 
50 0 irT^]#^fn6 2(4, 6rtC«/>Snfc«S6 0 2 



(7) 



11 



4£KJ*P8-292866 



**«*:/^-:7V>tt*3Jxfc*3l6 0 2«>t,6fl*> 

tzmm 6 0 2 ICR 9 T&g£ ftfc ^ y y K*5% 6 0 
J: 9. ftWftt^y y K«*%6 0 6lc:fe5#M(?5^^ h 

^*aW**«IZ*J-c*« J: Jic^ry y K«^6 0 6 lr*s 

10 0 1 9] Sfc^VKfre 0 4**0^ yF** 
6 0 6KI4, ^6 0 OcO^^wgli^i^fc^^jj^jgg 
*aW*-*fMtPiyT6 0 5, 6 0 7^ 
iy7605 - 6 0 714. ±1*1**815 2*5J:tfTlSl* 

±t>*^y y K**6 0 6in±tL<iiTtef»xy 20 
76 0 5*iJ:tJt6 0 7*»ftStfcni;tS«^ 

eaTiJoTSftti. *««BB^ff»3iyr6 05, 
Wi^Sf,i5tttoJRAM4 o»cia*$nfc#ia 

1 0O-#±|c*5%sj x5o (u) ^> 6 ^; : 

*lTV>-5. tt»7T2*BI::»iR ( U) ^y 64m 
ti:fcKJ: 9< «^**t*:a5i6 0 2Cf|i!l7 6 

±fc*a*£iT.fcflMRI4. *0±*»Tfl3*figjBlcg63E-f 
5. ^+^^#>6 6 0ff»|cj:5, *o*6 0 0Q 40 
M©**^***,*. 7U-A6 10©*ai5fctt, * # 
6 0 0O»^j^ CixtRAM4 0*»6,*3|?$n 
Mv^te* (?) H?#i/6 8a5f»8ii 

St. ^^/-^TV^-^y v m - 6 0 g 

[0 0 2 0] H3*iJ:VH7Sr#J!BU T , ^^y^. 50 



12 



*>* (?) ^vesoficj:!), TVl 0 (En: 
H^) ^^y->, = ^ 70oaIanSo ^ 700 

^-WV7 0 6. Mtt^V7 0 8. 
V7 1 OJSJ:^— y#^ 7 1 2*«»ft-fS. #^=r 
V -X* V 7 0 4 ±fc*3 ; h.fcffl tt31 y r ^ 
5 2-5 81:^^1^ ^-*#y706Ci 



ff*«i*#v7 1 oofHttteio. »wf-^a>6c 
»t4#*o*iaoy^ h^sguxs. a-fjn^ 7 j 2 

*^7 0 4OfifcJ:9 > TV10^^-.>H: 

*^7 0 0t*,Tftbo T . BB8te*$^fcft©*i 
8 0 0^^$ix5 o 

[0 0 2 1 ] 03, 8*J:tJ«9«r#JH^ 5i< 
0KI4, *ftO*^8 0 1, 8 0 2, 8 0 3, 8 0 
4, 8 05, 8 0 6, 8 0 7, 8 08*5^80 9**, 

^y-^tcjsiuf-tna^oAyrfy-jc^ 

*l«iaWSLTV»3. *?V8 0 1-8 0 914, ^ft* 

- 1 Lxmm<D* r =r y < y TSr w s 

f5tftCffl^f,h8. tf*>8 0 1-8 0 9|±, 
5 t£*-,< y K 5 0 <D 1 - 9 ^-offijl],!; R c ^ 3 

5. fcfcitf, 3#g^jij t jj ;uf 3 # g ro ^ J(cS) _ 5 
*-y< y K5 0©3#B»«JF!H3J:V3 # g o 
<5 0 ^^^8 0 914, *»&ilfc»iRfciHjtu TJ | ttt . 

9, (U) jK^^g 4^«$H 5tv H19I^$ 

*lt*^Wl,5. 09 14, @8<0{,©i|^i|: jg 3 

9msmnwm<om!Riit*zs9 01-909 

So **^9 0 1-9 0 914, |F«. 7yh#^ y < 



13 

ft, y±mzfrtc%$ : T=tV'--<Dm$>tz'y-7'yji' 

0 1 0fc*£ftfc«*l 0 0 OtfS«5*9 o OCftotft 

[0 0 2 2] Bl 0Sr#flB-t"5t, *F«6W3 0#P#£ 
£o, jBS/J^Slxfc*ai 0 0 2 \zl6\-f 

ixfcSm 1 0 0 2ft, J: I? 

— ^ • -f ^ • fNBAj ^a—jfr — K100 3 

ft. Sffl f^7PGA^7j teTft-t* ~zl — # — K 

in£«l*fi<iotv^ 0 rixft, #«a r^* • * 

— ^ ->f V 'fNBAj *S^F»6 : 3 0^bi&*9, 
— ri/x/PGA^7j ft, JgR^VKl? 

1 0 0 6tC*3»ta r^7PGA^7j <7)^>f h/UCQ 20 

rS/=7PGA^7j irft^<b tf^CBt^JiC^Ti- 
Wb&tifctigLl 0 0 3*3J;0«1 0 0 4(D*rfia 
ft, iRlCffiBTjUfcoTV^So ffi'hSjftfc^Sll 0 0 2 
(Ditm^VTl 0 0 5^ltL<ttftfflt H6<!:IS1 

0 10-1015 &rf$o 0 - fi*JK«« 1010-101 

5ft. -tnfe^jR-rs^*— y#»oaa(rj:oT** 30 

co^^r^ hyufa- XhZlffl 1 1 K^SJxfc^r^Sl 
«i y 7 1 0 0 6 l:14o t«SSn5 0 ±aiLfc<fc5 
IK (U) Wy6 4ft r^P#^CT% CPU*, 

[0 0 2 3] WflEHi 0Sr#fi8i-5t, #S;*5j:ifS« 
<^4RI»^a^ 1 0 0 0 *5S^Slx5 J: b Ki-5SSWSfr 

#flF»Sn*:tfr£\ 01 2K*$jftfc»;j*l 2 0 0*5 J; 
V-t^^-Y^^a^^a*? 0 O-bfcli&gWlwfifcSo 50 



«rM ¥8-292866 

14 

1 2 0 0ft, V^* £ 1 2 0 2, ^ 1 2 04, 81 
^1 2 0 6, ^-^T-nOSiJ.t^-^xy 
K12 1 0^»BSsK^^S:*'*-4 o £T<D*/tf— 

^"r^v—^i^^xmii$3xtc<Dx\ 1 2 0 0O 

fisftai y >1 2 04 SrSSBJ-t-S J: 5 K»» 

£ixT, *^yi 2 0 4W®)$^t, Ell 

1 3 0 0 #3tft,, 1 2 0 0 ±K:fi« «5 0 
[0 0 2 4] *^1 3 0 0K*3l*T, 7^— ^^BOilK 

Sixfc2ooffi«tt^^Six-cv^a 0 3 0 0(w^ 

$ixfc2oOJSf4ft, &<7?2 4WM<0^>f A^a y ho 
S91 2«FBfl^fc»0^-+^yH-*^ y hT'fo 

1 2B#P c flWl*3<7)3 0 0H±(Oft^HlSS 

^sa^-tn^n**! 3 ooic^sns-c 

fo5 3o #^^-^#«a<D^ft, -t^S»S:»26-r5 

5WaSr*i^oy«fcffi|t<5ltaKlxfcffi»^ r*— kj 

-enoSPtftofcftl^iisit/TftS^EPS 2. 5 4*3J; 
W**5J:tKfcffl*^Hl5 6, 5 S*m\<^X¥<Dj3—y\z. 

hftm^vr 1 3 0 2«r#tts*T«£fcas-es* Q a 

»l 3 0 0A»bto*»5J:5lc:, »»tt4«p|Blrt-e*fte 
ix^^iti-^trft-y-^^yu— >Olft*/£#< 

J: 5 3 # 5 7 >f yu^ y t $H-5 Q 

i ^^^^n/c^x^y-^^H-rsi^ft, ^is^ft, 

Bav^fc-fr (?) ^^^6 8SrJfL, **7 0 0 (0 7 
i-E3^) Sr^^-f-^o ^Iw^y^^y — o 4Sr^ 

Kb, SS9 0 0 (0 9^11^) SrS^-f^o ft*-. ^ 
btf— yU7K^^9 0 3 S:5MKb, H15W8S1 
5 0 0^tS o Ell 2&0 5 1 3^^K7^;^ 
ft^Ilil^t, 5 0 0»Ol 2B#M*Cjft»: 

9t-, 2»ftW^!JyK**1 5 0 0tt, «I16 0tfi 

5 2, 5 4*3±T//*fcft**3j:if£^#^g|]5 6 5 8 
SrfflV^T2&7c^^y y K**l 5 0 0rtTM^K)^.y r 
1 5 0 0Sr^»Sit^r t^«t 9, •B*J:0 { lRia 
Srg}(t5fc*lc##a^^>f h^^^V^/uSr^l 
5 0 0W7^A©-*J:t8SSt5. fcfcitf. 
»J^.y Tl 5 0 2lw±(9 3£H£nfc#Bft, r *^^ ' 9 

>r-^ ,y f if nb aj -e$>o, -tHttcNN-eaet 

3 0 0SrSK65iw7-</u^ y ym: irl^i 
oT, *3a»ilS64^*<D** l 5 0 0KH8/h-i-5i fcj&s 



15 

10 0 2 5] 01 6~2 3£#fi8LT. #$§9§co»Jco^ 
ffi&VLWtZ. 01 6*J<J;t/S»J<7?0ET*li, 1 tifffl* 
.1:9 b&mmmtRZix, si-i'-^igiRlr.fc 9 8t3f£;h, 

— /<y K5 0 co^$: 0 <Z>7i?^ >£rf£lH~-5 i t Jr J; 9 , 
S^jg^^rtf b * — BJffiropgif-t-0 9 <73 9 0 0C5J; 

5„ ^0W/K^>Sr{^i!j-f-5i:, 134(^*^/21^— 10 

[0 0 2 6] ict; &W£ti fHx . pj—f . ^ ^ 

^SrfM&U Hi 0cD*^SrttJi-cfc^p o 4 0£Lko 
OjS* H9, 8. 7*j.fctf5*ft-? r ;h,«>* 

^9 0 0, 8 0 0, 7 0 0*3j;tf5 0 O^irittp. 
nmafj h/uSrUJi-icii, ftsg^^s 0 9ifW 20 
3*. Hi 6**5*5 0 0 IOfta«l=»ta3 0 016 

J4\ TNOVAj as0faro#ifia5^-C h/ux**>ofci§ 
-S\ ^Sj^yrte, (u) ^>-6 4^i)|;J;t) 

i£t£$iT,3 0 1 7(-^r$ix/c<t 5£-k|6j#fc£P5 2*7t 
l*T(6]^^PP5 4 iSrffl^T^w^fitE (.m^<D— #_k 

^tfX^o^— T'fcamsixs. rco>-^->^.(z«t 30 

9, Ell 8tfS01 7 0±fc»«6«,fc**S. Ell 8 K*s 
i^T, tf»:*yTtt. @i 7\z.ixistitiJi?\zM\z.38\t 

5tf*>6 4Wf£»l=J: 9 0 1 9 _hK0 2 0iil45J:3 
l~#3 0 . 0 0 OSrfi, S^J^OCDlSc^Ko^T 

*>*W#«&ftTH5 0 fctfctf, NYPD^-|t, 

-3tt«fctt, Tl*I*^B]5 6S:fflV^XfMfc3:.yTSrH2 40 
1 l-^£*X/ct: 9 lw^^2 0 0 0 NO 7^ 
?£ftiL, ig#? (u) 4 &f£SH*.S 9, 

H2 20**2 2 0 0*s*S2 0 0 0C145. 5tfe, 
N O V A 14, NOV 5 o fct> i: o<73#JT- 
£>5<rcT\ h^NOVA^i2 2tah?,„ 

«^2 2 OK^XNOVAt^/utttfSixfc^-f V 

iliJ: 9, ^y-XSBNOVA^SiJ^t^^v 
t tl=H2 3lr*SJxfc*«2 3 0 0*SgE^2 2 
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10 0 2 7] 02 314, §&3#)3i&7E<Z>jry •> Kt LX 
«4, 3 0 0(O— jjcoWiz. ^<nm&l-i&\CB_o& 

^^ixXI^S. <fcoX, NOVAWxl^y — K*S0^H 

TV^5 0 f£»JL y T 2 3 0 2 14, K 5 0 CD^cffl 

5 6, 5 8-e*3p*rtifc,_*BJs 2, 5 
^i&^rtB-efo5 0 ^ro^w#^(73^j{-NovA*5^ 

SM&!fcSjh,34&^\ tf?s/?*rt»c:sep (*) $t#oT, 
^5 *>JH t -t *>*Wg)«>5H «!: /JS^o fc £ c ^, irffi $n 
9*Sh5. fi{=p (*) «4, *BtOT«8 

V A©M«y n ^7 AWSil^ ^ y ^ W#lE^t„ 
%ffc<D B <D^7E<DmMiZteif %mffl.<DX ■? v J? (frbz. 
f4\ 1^ fy — K©^^ y ^)' Sr^LT 

#»tL<l4^i-5titt, CwmsUPgcogfeO/cfe 
fi-tl*l#$cPP5K*>'6 OfcitJf-fiTl^]^^^^ 
>6 2ZQs.mi-Z. 3 0 O^Sm^-T hy'n4t*> 

T*, 7 1^— Aroffi4R^xr>K^l 9 0 414*^2 3 0 0 

»4, ^#y^rtOff»3cj;rffillJ:9±t>U<H:Tli*> 

^H6^B^7i,j)3 0 0E(J:«5 T^^.^ 
^/bj ^WT^-fe;*£3lri- -5 NOVA4^CV>< 

SS#/45 2 t^CTcfc b < 14 3 <^7cl^*iV>T4t^C0J.> K y |- 

a*l*J<ft>Jx* 0 roi^, urn, l&0Wrto34# 

[0 0 2 8] 01*34:^2 1^9, *«S«gfiwifle 

ojafefco^-ciaae-ri. #*a^ ^ ^ ^ -/u<^^— ^ [± 

/KO^-^f4teffl«)|ri||{t$ix, STBl2lii©SM 
^v^— /i-7- ^SrgfgU, RAM4 Otcfatti-s. 
&5VM4, -tcOSffl^-^v'^.— /U7- ^O^-ct L< 14 
-SBI4, »6<3lrS*$n, STB1 2»Cj;9gm$n, 
RAM4 0JrfHlg$4x5 o :©i5/j:Sl7- ^14, T 
V Data, I n c . JJi^roft&W^^tt^P, 

-#tL<ttl/a-Kli, CPU 3 4lrJ;5fEtg, 
ot7l/i'5;Sht7*-7y hi ^ixT^S. -TVS 



f 
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CSi^/o h*>f^n^7A^5^ M4, WTO 
[0 0 2 9] ^7^-<->^'7'nF^7'' 

^ 5 * v K*5 i UWJR*5 <fc Xfx 7- - $ * £ Uttt 
<5 C n — u^fy t? *7 * — A (ro 1 odex f or 
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u — J*7 — A i: □ — pfy^^?^— -M4rSn££ t>, 
6rtT-fc»9, T^y tr-i/ai/cDmmyv—mztAs 

[0 0 3 1 ] 
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' ====== COMING form code ====== 

Option Explicit 

Dim allDataiB) As snapshot QffiBl*KD?-<<tza7 r — £ 

Dim filterData<B> As snapshot HZ t<7>MsZ<DX* * ?>>a y V 

Dim mays As Integer g^f^DHgt 

Dim KSlots As Integer &7jift(aftffl&t l 

Dim NStation As Integer £ml*!0)$& 

Dim Maxstation As Integer ;*f*gCQJ8JiSia 

Dim colorField As string JSyM7-^T5r-^A-^7^ H 

Dim mPreview As Integer 'boolean zl- * 9 *-^fct^T^3 * 

Const sideGap .= .05 Sm<OW9b)MT4D!Bm 

con» t topGAP = 4 tmiGtmmtotwnm 

Dim refDate T~-*%t&\(7) \)7 T \> >Xy=- b 

Const lblHeight - 40 Bff* J; V»fffl^^flD«$ (5 0 0^-^) 

COnst MINProgWidth - .2 7CD V f0M»«OS/MI 
Dam slotsPerDay As Integer -BtffSSn^Oy hoft 
Dim currDay &&CD0fV 
Dim startTirae 



Dim TSBegin A* Long StO©^] 

Dim TSEnd As Long &&<Z>I##J 

Dim TScurront As Lang ^^CD^j 

Dim rowOffset ^^a.^ juCDft (j-jy) R^g;^ 

Sub ApplyFilter () 

Dim i as integer ?7 0 ># 

if InStr ( filters ( currDomain) , 'Station") Then 
Else 

NStation = MaxStation 
colorPield « "Category- 
End If 

For i = 1 To NDaye 

allData(i) .Filter = f iltero f currDomain) 

Set filt«Data<il = allData ( i ) . CreateSnapshot { ) 

Nex.t i 
End Sub 

Sub changeSel (d As String) 

Dim current, firstMatch ^—p^^^X—fi^ 
Dim success As integer ffimfa {7- J\,) 
Dim s As Integer ft >3>> 
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Dim e TSK7 

Dim TS As Long ^^A^D-y K 

Dim F As snapshot 

Dim a Day As Integer 

Dim dist 

Dim best As Long. bestMark ^ ^ — ^ ^-^ 

current = fil terData fcurrDay ) . Bookmark 

Set F = f ilterData (currDay) 

s = F("Station") 

e » F< "FinishTS") 

TS - TScurrent 

aoay ** currDay 

success - False 

best = 999S 

if d = -Right" Then 

F.MoveNeatt 

If Not F.EOF Then 

TS - F( 'StartTS" > 

success - (F( "Station - ) - s> And (TS <= e r i) 
End If 

If Not success Then 
•closes? <Z)£lZtthX+-*X*?*yO 
F.MoveFirst 
Whil* Mot F.EOF 

If F< -FinishTS") > e Then 

dist - VDistHorizfs, e, F { 'Station* ) , F ( *StartTS" ) I 
If dist best Then 

best = dist 

success s True 

bestMark = F. Bookmark 
End If 
End If 
F.WoveNext 

Wend 

if success Then 

F. Bookmark = bestMark 
TS - F< "StartTS" } 
End If 
End If 
Elself d = -Loft" Then 

F . MovePrevious 
If Not F.BOF Then 

r&Th - n u x r— u 3 > z u TJ8&<Dmmo>ffiiz a * f$ t 

success = (F( 'Station" ) « s) And (F ( "FinishTS" ) >= TS - I) 
TS = FrstartTS" ) 
End If 
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Closest* Cou-rxri-fcti 
While Not F . eof 

success = True 

End if 

r • ^oveNext 

Wend 

If success Then 

End if ' StartlS-) 

End if 

F ( "Station") > s 5- 

***** = diet 
success = True 

End If -Bookmark 
End if 

F.MoveNext 

Wend 

If success Then 

rs B r^ff "-^tiurk- 
End if ( Ssi ar its- } 

eiaelf d - *„p. Then 

closest 1 £*--r, . ™ j. 

"Pini ehrs .„ - v»l. tVtet| .. TScu „ ent( 

If «««b.«Th« S-=«ion-,, Ff. startrs ., 

beet « aict 

= True 

End if -SooJcmark 
End If 

If succe ss Then 
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F. Bookmark = bestMarlc 
TS = FfStartTSM 
End If 
tnd If 

If success Then 

recurrent = rs 
currDay = a Day 
Displayproff 

Else 

End ^ lterDatA(currDa y>-^otoark * current 
End Sub 



Sub Dicpl^ypz-og {) 



Dim F As snapshot ■ 
Dim meg As String 



Set F 



filterData (currDay) 



shpProg(O) .Visible = Fal*o 
selector. Visible = Falce 

Position shpProg(O) , F("Sharfi r/*r.- • 

CPlace 0, selector. S h^""o) F< " Fin " h ">< FCSt.tW, 

shpPrcg (OK Visible = True 
selector. Visible « True 



Sub Do Preview < ) 

n<SO = rasg & Chr<13) & 'Time- • t c^v«,.i* 
"«AM/PM-) TlmB - • * ^'IfUurlXt. (currDay) < -Start-). d<yy 

m Sg = ms<7 & Phv ( 1 "5 I r . , 
AM/PM-, fc ° * ^^'^"^-(currDayX-Fini.h.,, . hsnm 

Popup. Caption =• msg J 
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popup. Top ■ lblTimeil) .Top ♦ 2 • IblTime (1 1 .Height 
popup. Left b 2 

popup. Width = slotsPerDay - 3 
popup. Visible = True 
inPteview = True 
End sub 

Sub Deselect ( ) 

userstacion = filterData (currDay) ( "Station-) 
userstart = filterData (currDay) ( -Start-) 
returncode - TOTV 
Me. Hide 
End Sub 

Sub DrawProg (color Index, start, finish, station) 

•note; form.Aut ©Redraw should be set to true so the drawings are persistant 
Dim L. R. t, 8 £ s bV? % #hA 

Dim dayStarc 
Dim edge 

days tart = etartTime + currDay - 1 
L = (start - dayS tart) * 46 
R = (finish - dayStart) * 48 

If L < 0 Then L = 0 

If B > slotsPerDay Then R = slotsPerDay 

edge = (currDay - 1) * slotsPerDay 

L = L + edge + sideGap 

R = R + edge - sideGap 

£4H #ffi 5 C h fettiST * Tz a S'Jv(g # gJIE 

If R - L < MTNProgWidth Then R = L ♦ MIMProgWidth 

** : CO h U y ^tt'^ow A» l „ no^ Wow eat u^i^t tt«S6L&u 
rowoffset = U500 - 2 * lblHeighc - shpProg 1 0 ). Height ) / NScation) 
t - shpSlot ( 0 > . Top * topGAP + (station - 1) • rowOffset 
B o t + ehpProg(O) .Height 

drawwidth - 1 

Me.FillScyle = 0 V *J *j Y 

Me.FillColor = Color (colorlndex Mod 91 

box t) " BtlV(R ~ L ' B " tK ' B »$^7<>3T>K^ y ^^|< 

End Sub 

Sub FOrm_Activate () 

Dim i As integer ^rO>£ 
Static saveFilter As String 

If eaveFilter = fi Iters (currDoinain ) Then sameFilter = True 
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eaveFilter « filters (eurrDomain) 

newUser = False 
End If 

If Not sameFilter Then 1 " 

Setlnfo "Loading program information. ■ GREY 

shpprog(O) .visible = False 

selector. visible = False 

ApplyFiicer 

KakeOisplay 
End X£ 

DisplayProg 
. If inPreview Then DoPreview 
End Sab 

Sub PorrruKeyDovm (KeyCode As Integer, Shift As Inceger) 
Select Case KeyCode 
Case Asc ( *<}• ) 

End 
Case B_BACK 

returnCode = BACK 
Me. Hide 
Case B_HELP 

invokeHelp 
Case B_ PRE VIEW 

if inpreview Then 

popup. visible = False 
inPreview = False 
Else _ " 

inPreview = True 
End If 
Case B_RIGHT 

C aS e I LLEFT fiItOrDat ' <CUrrD,lyKE0P Then Ch ^el r Righc .> 
Ca Se "Jr filterDatatcu "D«y).EOF Th en ChangeSel CLeft-j 

C aS e I B^ filtGrData<CU " Day, - E0F The " <*«W1 ("Up-, 

Ca S e"jELECT lterData(CUrrDay) - EOF ^ Cha "^ S el ( . Dewn ., 

Ca S e I B.P^EDO™ erData(CUrrDay, EOF ^ DOSele « 
Case B_PAGEUP 
Case B_FILTER 

returnCode = Filter 

He. Hide 
Case B_o 
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recumCede = SHORTCUT 
Mo. Hide 
End Select 

If inPreview Then 
DoPreview 

Else 

popup. Visible * False 
End If 
End Sub 

Sub Form_Load () 

Dim i As Integer 
Dim t 'as time 

Me.BackColor «= formCOLOR 
* ehpProg (0) .BackCoLor • BorderColor 
lblDay(O) . BoekColor - backgroundCOLOR 
lblAM.BackColor « backgroundCOLOR 
IblPM. BackColor = backgroundCOLOR 
selector . BorderColor - BorderColor 
dayLine ( 0) . BorderColor = divideColor 
lblTime (0) .ForoColor = elotCOLOR 
shpSlot CO) .BorderColor = elotCOLOR 
If displayMode = 'TV' Th«n 

lblDaylO) .FontSizo = eiaallPONT 

lblTime ( 0} . FontSize a sraa 1 1 FONT 

lblAM. FontSize = sinallFONT 

lblPM.FontSize = smallFONT 

popup. FontSize = mediuinFONT 

Else 

lblDay (0) .FontSize = largeFONT 
lblTime<0) .FontSize = largeFONT 
lblAM. FontSize = largeFONT 
lblPM.FontSize = largeFONT 
popup . Fontsize * largeFONT 

End If 

Si2eAForn» Me, DispTop, DispHeight, DispLeft, DispWidth 
Me. Scale (0, 0)-<50O, 500) 

SizeAControl IblDay(O), 0, lblHeight, 0, 500 

SizeAControl IblPM, 0, lblHeight, 0, 30 
Si2eAControl lblAM, 0. IblHoight, 500 - 30, 30 
SizeAControl IblTime(O), lblHeight, lblHeight, 0, 50 

SizeAControl shpSlot(O), 2 * lblHeight * .5 * topGAP, 500 - 2 * lblHeight, 0, 50 
sizeAControl popup, 250, 200, 250, 200 
selector .BorderWidth - 1 
• dayLine(O) .Yl = 0 
dnyLine(O) .Y2 = 500 
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. "art-rime = f akeTe d^ * **M¥8~292866 
hour lakeTcday ♦ f aJe6Tilne 

sanieVicw = False 
inPreview r F d l*e 

-~ *" 5<> ^ - - «- — 

or i = x To sIotsPerDay 
IblTime(i) 
lblTi «w(i).Move i - i 
c - DateAddf-n-, 30 ♦ /< 



^nputDafca 
End Sub 

Sub InputData (j 



Dim db as database 

Dlm RefS " a P *s snapshot 



Set ob = OpenDataba 



Be(TVDB) 



'Set reference date 

neecain ^ everything 
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End Sub 

Sub MakeDisplay O 

Dim i As Integer 

Dim d As Inceger Die* 

Dim F As snapshot ffli-fr 

It Noc same View Then 

End I ^ Wl:Dt ^^*y'bf ^nifc^i^ 

DoEventB ^Ocfc^tC^i 
For d « 1 To NDays 
currDay ■ d 

For i - 0 To slotsPerDey 
drawwidth = 4 

Next""* ahpSlot <°)*^P)-(i, 500), slotCOLOR 

Set P 8 f alterData (d) 
•If Not P. EOF Then 

F.Mov«Fltct 

Do While Not F. EOF 

DravPreg F(colorField) , FfStarMi r/.r-i , ^ 

F . MoveNevt * K p <' F ini a h-j, F( -Station") 

Loop 

F.MoveFirst ' 
End if 
Next d 

TScurrenc « TSBegin 

currDay = 1 

shpProg(O) . ZOrder 

selector . ZOrder 

Set F - f±lterData<currDfty> 

Do While TScurrent TSEnd 

F FindFirst Overlap (TScurrent , TScurrcnt] 
If Not F.NoMatch Then current) 

DisplayProg 

Exit Do 
End If 

TScurrent = TScurrent ♦ 1 

Loop 

TiscurrLnL^BOf^c & 5 - £ $ jgg 
End Sub T5CUrrent * T5End T ** n TS ^"ent = TSBegin 

Sub Position < 5hapB As CQntrol< scarc> finish< 5tfltion| 



(20) ^8-292866 

19 

Dim relatives. relativeW, dayStart 
Dim edge 

dayStart = startTime * currDay - l 

relative!, = (start - dayStart) * 48 

^f,^* W ' ifinish ' dayStart) * 48 - relativeL 

If relativeL < 0 Then 

relativeW - relative* + relativeL 

relativeL = 0 
End II 

edge = (currOay - 1) * slotsPerDay 
shape. Left - relativeL * edge * sideGap 
ahape. Width « relativeW - 2 * sideGap 

If shape. Width < MlNProgWidth Then ahape. Width = WINProgWidth 

rowoff^t = ((500 - 2 * IblKeight - ch pP rog( 0 ). Height f/ NS tat ion, 
End sST ° P ^ CbpSlot < 0, - ,ro P ^ *W * (station - 1> ♦ rovOffset 

Function VDistHoriz (stationl, finish. ctation2, start) 

Dim deltaR, deltaT 'change in row and time 
Dim rowl, row2 

rowl = stationl 
row2 = station2 

deltaR - Abs(rowl - row2> • (100 / NStation, 
deltaT - (start - finish) * (100 / slotsPerDay) 
\penalize programs that are more up&down than to side 

if tllttl ^W 1 ™/?*** ' <£ini9h + 3 - 5tart) * (10 ° ' -lotopernay) 
If deltaT < 1 Then deltaT = 100 / slotaPernay • don ■ t allow zero 
VDistHoriz - deltaR ♦ deltaT 
End Function 

^^^IrSm^lSt- startl - finish1 ' 8Cation2 ' st ""< 

Dim deltaR. deltaT 'change in row and time 
Dim rowl, row2 

rowl = stationl 
row2 « station2 

If startl > f inish2 Then f n n q o 1 

deltaT = Abs (startl - finish2> 
Elself start2 > finishl Then 

deltaT = Abs( st art2 - finishl) 

Else 

deltaT = 0 
End If 

VDistvert = deltaR + 2 * deltaT 
End Function 
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• =-= ===^ uy ^_ A rJ — K====== 

Option Explicit 

Sub Forro^etivate () 

Select Case retumCode 
Case SHOWVIEW 

views (cuz-r Domain) .Show 
Case PICK 

frmSelect.Show 
Case TOTV 

f rmW. Show 
Case LASTVTEW 

sameFilter ^ True 

vi ewe t currDomain J . Show 
case STARTUP 

" Case « C .t LaU "** D - D ^r*^LT*6lNfcl,tJB 4 , 4 ^ 

f rmDex. Show 
End Select 
End Sub 

Sub Forrn.KeyDown ( KeyCode As Integer, Shift As Integer) 
If Keycodo = Asc f "Q" } Then ? ' 

End 
•End If 
End Sub 

Sub Fonn_Load ( ) 

Me.BackColor = formCOLOR 
ssplnfo . FontSize = mediumFONT 
sspStatus..FontSize = mediumFONT 

ScrWxdch = Screen. width . 
ScrHeight = Screen . Height 
If displayMode = "mini" Then 

ScrHeight = ScrHeight * .54 
scrwidch = Scrwidth • .712 
displayMode = "TV" 

Else 

ScrHeight - ScrHeight * . 63 
End If 

I rmFrame . Top = 0 
f rmFrame. Height = ScrHeight 
f rmFrame . Left = 0 
frniFrame. Width = ScrWidth 

ssplnfo. visible = True 

sspStatus. Visible = True 

ojttrji >J7fe H£ 

DispTop = Bsplnfo. Height + 1.5 

3S£f « 0 frTnFraTO ' Hei ^ - <"P^tus.Height * 1.5, - DiapTop 

Dispwidth = t rmFrame. Width 
End Sub 

Sub SetupStatus () 
End Sub 



[0 0 3 3] 
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Oim DB As database 'full database with indexes 

Dim BlinkControl As Control 7 y^j? y fc-fe * h 

Dim iternSelected As Integer 1 ^^HAXDISPLAY^ 
Dim locselected As integer 1 *p 6HAXL0t>N 
Dim inPreview As integer a^^ffl M 

Dim captionField As String &mizmut>tlZ>? : -*'<-'Z7 4 \: 

Dira startTirae T V »J X h ©fS&U#R3 

Din TS As Long T V »j X b (D* -f AX □ v b 

Dim rowOffset 2 -JOj^W Lfc^gO h v r(SI<?>£& 

Dim browsing As String toi/g ),^ <7 

Din. colorField As String $7 H rSEjKt ft *^@) 

Const MAXDISPtAY « 6 ^ n — X"f V ^0Jg@*ft 
Dim MAX IT EM As In tog© r £ y * hH^ltS^@|St 
Pim MAXIOC As Integer D<r— ^{ft&<Z>gfc 

Dim whichrltem(MAXDISPLAV) As Integer rltcnettSa-a^fcifeS 

Const* gap = 10 "J^hJbDW^-^ 
Const EXTRA = 70 &tf)lDG&L(ni&CDJls<-Jx 

Const reducedEXTRA - 20 »^LfcA3WCS3(t4fi»O*ffl*0fei&fi!);i,-A 

const t = 50 ft/j^nfc »;x h 

Const H = 1000 - 2 * T 

Const locL - 30 l J T 

Const locW - 100 

Const diBpL = locW + 2 * locL. 

Const dispW - 1000 - dispL - locL 
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Dim allData As snapshot 
Dim itemData As snapshot 
Dim storeData As snapshot 
Dim deptData As snapshot 
Dim stuff DaLa As snapshot 
Dim filterData As snapshot 

Dim marker (1000) As String &HAXM SPLAYS B 5 V— ^ 
Dim locStart (1000) 'rltem index for start of locator 

Sub ApplyFilter () 

Dim sortString As String 



If Me Is TViist Then 

captionField « "Title* 

sortString = 

colorField = "Type* 
Elself Ke is HOVlist Then 

If same View Then 

al lData£ fc* £ $ 

Else 

LoadData 

allData -Filter = viewFilter 
Set allData = allData , CreateSnapshot ( ) 
End If 

captionField = 'Title* 
sortString = "Title" 
colorField = "Type" 
Elself Me Is SHOPlist Then 

Select case f il ters (currDoxnain) 
Case 'store- 
brows ing = " s tore * 

Set allData = storeData 

captionField « "name" 

filters (currDomain) = 

sortString = "name* 

colorField = mm 
Case "dept* 

browsing » "dept" 

deptData. FindFirst "name = * " &. userString & ■•■ 

ucerString = " • • fix— this is cheating, userStruigttfllin^^^-t fcM 

If deptData .NoMatch Thon 

Set allData = deptData 

filters (currDomain) = 

Else 

browsing = "stuff 

filters (currDomain) = "[dept code) ■ ■ k deptData ( "code* ) 
Set allData = stuffData 
End If 
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captionField = -name- 

eortString = - name . 

colorField = ■ ■ 
Case "item- 
browsing = -item- 
Set aUData * itemData 
captionField = -name- 
colorField - • - 

filters (currDomain) = -name like - * 

sortstring = -name- & userString & 

case Else 

browaing = • stuff ■ 
captionField = 'name- 
sortString = •name- 
colorField = -fitem code J - 

End f\* allData « BtuffData 
End Select 
End If 

allData.FindFirst "Not- ■ 
Else Not * captionField 

End g^-^^iwt allData. Fil ter 

I# ^HData.NoMatch Then 
MAX IT EM = o 

Else 
End sub 

Sub HUnkSfrt <C As Control. vis) 
Sec BlinJcControl = c 
BlinkControl. visible = vis 

En d£r Unk - Baabi * d = T ~« 

Sub BlinkStop (via) 

tnurBlirvk. Enabled - False 

" B1 ^? n , tr01 13 NOChin 5 T hen 
Else 

End jJ inkControl -Visibl e = True 
End E BUnkC ° nt - 1 = "Whing 

S «t Ch T 9CLOC <direct As String) 
Select Cage direct 
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Case - Up* 

If locSelected > I Then 

locSGlected - locSelected - 1 
RedoDi splay 
End if 
Case "Down- 

If locSelected < KAXLOC Then 

locSelected = locSelected + l 
AedoDieplay 
End If 
End Select 
End sub 

Sub ChanoeSel (direct As String) 

Select Case direct 
Case *Up* 

if itemSelected > l Then 

itemSelected = itemSelected - i 

rltenKO). Width o locw <► 2 ♦ gap 
Setlternlnf© 
Eleelf locSelected > 1 Then 

itemSelected = HAXDI SPLAY 
locSelected « locSelected - 1 
RedoDicpl«y 
End If 
Case "Down- 

If itemSelected < MWCDISPIAy Th«n 

If (locSelected - 1) * MAXI5xspiav ^ 

itemSelected = itJSE"^ * *t«Sal.ct«! < MAXJTEM Then 

rltem(O) .Width * locw *- 2 * gap 
Setlternlnfo * 
End If 

Elaerf locSelected < KWOOC Then 

itemSelected «= l 
locSelected - locSelected + 1 
RodoDisplAy 
End If 
End Select 

ritem(O) .Visible = True 
End Sub 



Sub Dopreview <) 
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7 u tf a - »jr y > K £ i; 7 u b! .x - o >r-$ tt* 

Dim i As Integer 'counter 
inPreview - True 

locator .Visible - False 
selector . Visible « False 
For i = 1 To MAXDISPLAY 

iteraBox (i) -Visible « False 

leftArrow(i) .Visible = False 

rigbtArrow(i) .Visible = False 
Next i 

previewWin. Caption = "Getting preview...* 
previewWin . ZOrder - 
previewWin .Vis ibla = True 

ShowPreview 
End Sub 

Sub DoSelect () 

If Me Is TVlist Then 

userScation « filterData ( "Station" ) 
userStart = filterData ( "Start - ) 
returnCode - TOW 
Me. Hide 
Elself Me Is MOVlist Then 

sameFilt^r = True 

TellUser *You would asked to confirm your order of * & 
filterData ( •Title*) 

Elself Me Is SHOPlist Then 
Select Case browsing 
Case "stuff" 

sameFilter = True 

TellUser -You would be a&ked to confirm your order of • & 
filterData ( " name" ) 

Case "store" 

t liter s(curr Domain) = ' Istore code] 
F oolAc t i va t g 
Case "item" 

filters (curr Domain) = "litem codej 
Form_Activate 
Caee "dept" 

f liter b (curr Domain) = * (dept code] 
Fomv^Activat© 
End Select 
End If 
End Sub 



= ' & filterData ( "code") 
= • & filterData ( "code-) 
- * & filterData < "code") 
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Sub EndPreview () 

Dim i As Integer 'counter 

previewWin .Visible = False 
inPreview = False 
locator .Visible = True 
selector .Visible = True 
previeWWin.Top = displayList .Top 
RedoDi splay 
End sub 

Sub FornL>Activate < ) 

Dim i as Integer 'counter 

Dim section As Integer a>x~- $ ©o£r— $/ 3 >$L%j30ls b 

Dim NVisible As Integer ^^, >3 >rtOT«j5ttfc2Efi (J8£) 

Dim msg As String 

Static save Filter As String 

Sea tic saveView As String 

m.&4>7 ■< )VP (Zft rrb \>y Y fr* fc* jl * 9 

If Not eameView Then some View - (save View c viewFilter) 
saveview = viewFilter 

If Mot samaFiltor Than c&meFilter = (eaveFilter =■ filters (cur r Domain) > 
saveFilter = f liters (curr-Doma in) 

SatStatue curT*View( curr Domain) u currFi Iter ( cur r Domain ) , greyCOLOR 

If saxneFilter And same View Then 

If newUser And Not Me Ie SHOPlist Then 

popup. Caption = "To change the category shown, proes the ' Category ' 

button. • 

popup. Visible = True 

newUser = False 
End If - 
RedoDi splay 

Else 

Set Info "Selecting data, please wait...", GREY 
If MAX ITEM «= 0 Then 

previewWin. Caption « 

previewWin. Visible «* False 
End If 
Do Event s 

If inPreview Then EndPreview 

For i = 1 To MAXDI SPLAY 

itemBoxfi) .Caption = 
Next i 

For i = 1 To MAX IT EM 

Unload rZtem(i) 
Next i 
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ApplyFiiter 
1£ "^"EM = o Then 

locator. Vi sible o "*» 

PreviewWin.ZOrder 1638 ' Cate (?ory. to cha 

Previewwin.visibie = rru» 

locSelected = o 

tise 

w"*«*i?r ,, " ,M * ,Bt 

rttem (0) . Left - i 

«temf0) "width \ Tocw* reduce <3EXT*A 
«tem(0) .BacfcCol^ 2 * red "cedEXTRA 

Saga^£Si« t " tefflCOLO * 

For * - 1 To HAxitek lrSC s ««ion will be m» r v - 

**** rrtem(i, correctly 
If colorFiei d K> 

B-decWor = Colo 
rltemd) .Top - r * / ■ 

KS2:\ et {°-' = f "-^ ta . Boo)anark 

End if 
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If filterDataCStartTS") < TS Then 

rltem(i) .Left » rltemU ) . Lef t - reducedEXTRA 
rltem(i) .Width = rl tetn( i) .Width + reducedEXTRA 

End If 

If f i IterData ( "Fini shTS ' ) > TS Then 

rlieml i ) .Width = rltexnt i) . Width «■ reducedEXTRA 
End If 
End If 

r I tern ( i ) . ZOrder 
rltero(i) .Visible = True 
f i 1 1 e r Da t a . MovoNqx t 
Next i 

MAXLOC = section 

locS tart (section + 1) » MAXITEM + 1 

niinselector^Sc^-fe v j h (use rltem(O)) 

rrtem(O) .Lef t = locL - GAP 
rltem(O) .Width = locW + 2 • GAP 

itemSelected = 1 
locSelected = 1 
locator. Visible - True 
rltem(O) .BackColor = hiohlightCOLOR 
i temBoxes WOSEL'd fe-fe'V h 
RedoDisplay 
End If 
End If 
End Sub 

Sub Forxn_KeyDown (KeyCode As Integer, Shift As Integer) 
popup .Visible - False 
Select Case KeyCode 
Case Asc ( "Q* I 

End 
Case B_BACK 

If Me Is SHOPlist And browsing = "item" Then 

returnCode a ALPHA 
Me .Hide 

Else 

returnCode - BACK 
Me. Hide 
End If 
Case B_HELP 

InvokeHelp 
Case B_PREVIEW 

If inPreview Then 
EndPreview 

Else 

DoPreview 
End If 
case B — SELECT 

If MAX ITEM > 0 Then DoSelect 
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Case B_UP 

If MAXITEM > 0 Then ChangeSel ("Up - ) 
Case B__ DOWN 

If MAXITEM > 0 Then ChangeSel ("Down") 
Cane B_RIGHT 

If Me Is TVlist Then 

returnCode = COMING 
Me. Hide 

End If 
Case B_LEFT 
Case B_PAGEUP 

IE inPreview Then 

If previewWin . Top < displayList .Top Then 

previevWin.Top » previewWin.Top + dieplayList .Height 
End If 

Else 

If MAXITEM > 0 Then Change Loc ("Up") 
End rf 
Case B_ PAGEDOWN 

If in Preview Then 

7 U ^ i — &x O □ — )\, 

If previewwin.Top + previewWin. Height > displayList.Top + 
displayList. Height Then 

pr*vi«wWin . Top = previewWin.Top - dieplayList. Height 
End If 

Else 

If MAXITEM > 0 Then Change Loc {*Down") 
End If 
Case B_FILTER 

If Not Me Is SHOPlist Then 
returnCode = Filter 
Me. Hide 
End If 
Case S_0 

returnCode = SHORTCUT 
Me . Hide 
End Select 
End Sub 

Sub FomuLoad ( ) 

Dim i As Integer 1 counter 
Dim itexnRoom 

itemBox I 0 J . FontSire « largeFONT 
leftArrow(O) . FontSize « largeFONT 
rightArrow(O) . FontSire « largeFONT 
If displayMode = "PC* Then 

popup . FontSize = largeFONT 

previewwin. FontSize = largeFONT 

Else 
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previewWin . Font Size e niftdiumPONT 
popup. Font Size = small FONT 
End If 

rltero(O) .BackColor = itemCOLOR 
selector .FillColor = highlightCOLOR 
displayList.FillColor = backgroundCOrjOR 
previewWin. BackColor = haekg^oundCOLOR 
locator -FillColor = backgroundCOLOR - 
it emBox (0) .BackColor = itemCOUOR 
leftArrow(O) .BackColor = itenCOLOR 
rightArrow(O) .BackColor = itenCOLOR 
shpsiot .BorderColor = slotOOUOR 

SizeAForro Me, DispTop, DiepHeight, DispLeft, DispWidth 
Me. Scale (0, 0J-U000, 1000) 

SizeAControl locator, T - GAP, H + GAP, loeL - GAP. locW ♦ 2 * GAP 

SizeAControl shpsiot, T, H, locL + reducedEXTRA, locW - 2 * reducedEXTRA 

SizeAControl displayList, T - GAP, H + GAP, dispL, dispW 

SizeAControl popup. dispW / 2, 4 * locW, diBpW / 2, 4 * locW 

CPlace 1, previewWin, displayList 

locator . ZOrder 

shpSlot . ZOrder 

rltemtO) .ZOrder 

itemRoom = H / MAXDISPLAY 

SizoAControl itemBox(O), T +■ (.5 * GAPJ , itemRoom 
2 * EXTRA 

SizeAControl patch (0) , 50, (6.8 
{7 * itemBox<0) .Height) 

If .displayMode ~ "TV" Than 
patch 10) .Left .= 8.08 
patch (0) .Height =3.7 
End If 

SizeAControl lef tArrowf D ) . T ♦ 1.5 * GAP). 
SizeAControl rightArrowl 0) , T + 1.5 * GAP) , 
EXTRA, EXTRA 

SizeAControl selector, T, itemRoom * GAP, dispL, dispW 
selector . ZOrder 
For i = 1 To MAXDISPLAY 

•Load itemBox(i) 'Now created at design time--f ixed number. < 6) 

itemBox(i) .Visible = False 

CCopy itemBox(O), itemBoxli) 

patch( i) .Visible » False 

CPlace 0, patehtiL patch 10) 

itemBox(i) . Top = i temBox { 0 ) . Top + (i - 1) * itemRoom 
Load leftArrow(i) 

lef tArrow(i) . Top = i t emBox ( i ) .Top 
Load rightArrow< i | 

rightArrowf v) .Top b i temBox (i ) .Top 
Next i 



GAP, dispL + EXTRA, dispW - 
itemBox(O) .Height) , <12.3 * it emBox <0) .Width) , 



itemBox(O) .Width 
* it emBoxl 0 ) .Height 



itemRoora - GAP , dispL, EXTRA 
itemRoom - GAP, dispL + dispW - 



sameFilcer = False 
sameview = False 
LoadDaca 
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Form_Activate 
saxneFilter = True 
End Sub 

Function ItemString t) As String 
Dim msg Ac String 

If Me is TVllst Then 

msg = Format (filterData( -Title" I) & • on - 

msg = msg & stationString t filterData( "Station" J ) fc ", • 

msg o msg & TimeString<f ilterData< "Start" > ) & " to - 

msg = msg & TiineString (filterData ( -Finish* ) ) 
Elself Me Is KOVlisc Then 

meg = Format(filterData< "Title")) 

rasg = msg & *, • & Fonuat (f ilterData< -Year- ) ) 
Elself Me Is SHOPlist Then 

Select Case browsing 

Cose -stuff 

msg - Format ( filterData <"name") ) Format ( filterData ( *pr ice' ) ) 

End Select 
End If 

3t«mString - msg 
End Function 

Sub LoadData ( ) 

Dim re f Snap As snapshot 
Dim re f Date 

If Me Is TVlist Then 

startTiroe = faXeToday + fakeTime 
Set DB = openDatabaseCTVDB) 

Set refSnap = DB.CreateSnapshot (* Refer enco • ) 

ref Snap.FindFirst "Name = 'Date'" 

refDate = DateValue < ref Snap ( "Data' I ) 

Set allData = DB. CreateSnapshot ( " Programs " ) 

TS = (startTime - refDate) * 48 

allData. Filter = OverlaptTS. TS) 

Set allData - allData . CreateSnapshot I ) 
Elself Me Is MOVlist Then 

Set DB - OpenDatabase(MVDB) 

Sot allData - DB . CreateSnapshot [* Movies " ) 
Elself Me Is SHOPlist Then 

Set DB - OpenDatabase(SPDB) 

Set itemData » DB . CreateSnapshot I " Items " ) 

Set storeData - DB .CreateSnapshot ( "Stores ■ ) 

Set deptData = DB.CreateSnapshot < 'Departments") 

Set stuffData =. DB.CreateSnapshot { "Stuff "') 
End If 
End Sub 



Sub KedoDisplay < ) 



" •'-*» « «... 

I£ MAX IT EM - 0 Th»- • 

f *lterOata.EOF Then 
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Ane " 



item, - Ald «t«fil = Inde* . so we Ki . 

Q can highlight t>,<» 

Color ( fiate " C °l°~ield <> .. rhen „ CO " ect "ten. (reduced 

itemBoxfi). caption - 

" » f x 8 mist ^ £££i 1 '- mibl - - True 
•show arrows "efSerf 6W Then 

leftAi-row(i) flJ^f TS Then 

Else riffhtA — i. .vi. £2°: 

End ^ htA »^'i) .v i8ible . Palge 
'show color natoi, x 



End rf 
last = i 
Index * i ndex ^ A 

End £ aterDat *'«°v. Next 
Next i 
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displayList. Height = H + 2 * GAP - (H / NAXDISPLAY * ( MAXD I SPLAY - last) ) 
'display list shrinks when fewer than MAXDISPLAY items displayed 

selector . Top = i temBox< itemSelected) .Top - GAP 'behind current itemBox 
locator. Top = T * rowOffset * ( locStart ( locSeiected) - 1) 

locator .Height = last * rowOffset r Item (0) - Height - rowOffset 'height shrinks 
when displayList shrinks 

rl tsm(0 1 . Top - rltemlwhichxIteni(itemSelected) ) .Top 

Sot rtemtnf o 
End Sub 

Sub Setltemlnfo (J 

Dim 1 As Integer '# of records away from bookmark we need to go 
Dim rasgr As String 

filterData. Bookmark = marker (locSeiected) 
i = itemSelected 
While (i > 1) 

f ilterDate .MoveNext 

i = i - 1 

Vfend 

Setlnfo ItemString ( > , ( itemBox{ itemSelected) .BackCol or J 

If inPreview Then ShowPreview 
End Sub 

Sub ShowProviow ( ) 

' of the it era selected 
Dim msg As String 
If Me Is MOVlist Then 

msg = f ilterDa ta t "Plot" ) 
Elself Me Is TVlist Then 

msg = f ilterData(captionField) & Chr(13) 

msg = msg & StationStringt filterData ( 'Station" ) ) & Chr(13) 

msg = msg & CategoryString< ( f ilterDatat 'Type" ) ) , (filterData< "Category" }) ) 

Else 

msg = "This would be a video, still, or textual preview of 
msg ■» msg 6c f ilterData <captionField) 
msg = msg & " * " 
End If 

previewWin .Visible ■ False 
previ ewWin . Caption =» msg 
CPlace 0, previewWin, dicplayList 
previewWin. Visible = True 
End Sub 

Sub tmrBlink_Timer {) 

BlinkControl .Visible * Not BlinkControl .visible 
End Sub 
[0 0 3 4] 



¥8-292866 



22 

' / *yiz—V7x — l>^— h' noe7CC= , m M _ m 

Option Explicit 

Const GAP - 500 

Sub Forni„Activate () 

toxtArea . Caption » ueerMeg 
End Sub 

Sub FomuK«yDown (KeyCode Ab Integer, Shift As Integer } 
Select: Case K*yCod» 
Case Else 

returnCode = KayCodo 
Me. Hide 
End Select 
End Sub 

Sub FomuLoad ( ) 

Me.BackColor = itemCOLOR 

text Area. BackColor = itemCOLOR 

textArea.FontSize = largeFONT 

SizeAForm Me, DispTop, DispHeight, DispLeft, DispWloxn 

SizeAControl textArea, GAP. DispHeight - 2 - GAP, GAP, DispWidth - 2 * GAP 

text Area. Caption « 
End Sub 



[0 0 3 5] 



Option Explicit 

Dim Blinkcontrol As Control TOTOT^Wr«^>^ 

Dim parent As Integer ©C;*?— 

Dim current As integer JI&4>£— YtOtfc 

dataf ile changes ^ , _ 

Const filterCARD - 1 TV^M^-a- 

Const mfiltei-CARD « 68 ^— tf — 7 -OU^ ^ — — 

Const homeCARD = 96 /-f — .x — 

Dim lastCard As Integer 7 4 f*)C$> Sf!f1©jlfr5# — J*3>8t£ ^ K 

Const maxtitle = 3 : MACTITLEC*i^^S!^d:LoadGraphics©3- 5 *flsfcfM5fc*"* 
LVoadGraphi c s 

const CARDSHIFT = 2.5 *J— K^7n©fc»Ofc«>— PS&iit£*$tf SSCibS 

const maxrows = 3 K£^0>fctt<Z>ti0--tf*>©fll©?J©Bt 

Const MAXCOL5 = 3 h* £3S<D&tt>0) fc®- Y ±®X# >©t£ro#Itf>& 
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Const MAXCARD = 9 * ^ *) ->lt:^$W 3 H <Dg*i& 
Const MAXITEM « 9 Fl©^^ V6D&*& 

actNEXT£ K> <bX&^79*s 3 V(Cl£jESa£>A;W<£« 
Const actCOMING * 2 
Const actNOW = 3 
Const actNEXT = 5 
const actALPHASHOP = 6 
Const actFILTER = 7 
Const actALPHATV = 8 
Const actALPHAMOV = 9 
Const act DOMAIN = 10 
Const act LATER =11 
Const act WEEK - 12 
Const actWKEND - 13 
Const actSCHED » 14 
Const shortTWTEW = 30 
Const shortMWIEW = 31 
Const shortSPVIEW = 32 
Const shortTVNOW =35 
Const shortTVFAV =36 
Const shortHVFAV =37 
Const shortSPFAV = 38 
Const actMOVIE = 40 
Const act STORE = 50 
Const actDEPT = 52 
Const actMORE = 60 
Const actNONE » 65 
1 for development only 
Const act KEYS = 71 
Const actTABS =72 

Sub Animate (direct As String, cardNo As Integer) 

Dim index As Integer 
Dim depth As Integer 

DaEvents * do not interrupt another animation 
depth = Cards (current ). level 
Select Case direct 
Case "Back" 

If Cards; (current) .parent > 0 Then 

CCopy sspCard (depth) , sspCont 

sspCont .Visible « True 

Zoom 10, sspCont, sspl tem(Cards (current }. self ) 

DisplayCard (Cards (current) .parent) 

sspCont .Visible - False 
End If 
Case "Next" 

index = Cards (current) .selected 
If index > 0 Then 

ccopy s spltem( index ) , sspcont 

sspCont .Visible « True 
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SSpCont .BackColor = sspCard(O) .BackColor 

Zoom 10, sspCont, sspCard (depth) 

DisplayCard cardKo 

sspCont .Visible = False 
End If 
case "Select' 

index = cards (current ). selected 
II index > 0 Then 

CCopy sspl t em t index 1 . sspCont 

sspCont .visible = True 

sspCont . BackColor » sspCard(O) .BackCoLor 

SizeAControl sspCard(O) , 0, 500. 0, 500 'size of whole form 
zoom 10, sspcont. sspcard(O) 
End If 
End Select 
End Sub 

Sub BlinkStert (C As Control, vis) 

Set BlinkControl - C 
BlinkControl. Visible = via 
tmr Blink. Enabled = True 
End Sub 

Sub BlinkStop {vis) 

tmrBlink. Enabled = False 

If BlinkContarol Is Nothing Then 

Else 

BlinkControl .Visible = vis . 
End if 

Set BlinkControl = Nothing 
End Sub 

Sub ButtonAction {) _ 

Dim button As Integer 
Dim cardNo As Integer 
Dim msg As String 

button « Cards (current) .selected 'item number of selected button on parent Card 
cardNo - Cards (current) . it"em(but ton) 'card number of selected button 
If button < L Then Exit Sub 

Select Case Cards (cardNo) . actionCode 
Case actNONE 

Setlnfo 'zcDX-yis* >l*$i t*W)lX-%%L^' $rcy COLOR 
Case actNEXT 

Animate 'Next', Cards (current ). item (button ) 
Case act DOMAIN 
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Animate -Next- Card,?! ' sreyCOL °R 
Case aetMORE ' * ,Curre "t ) . i C«n(bucconj 

Animate "Next-. Cards (curr^n 1 • (curren "y same as artNEXT) 
Case aecCOMING aS,CUrrenc > -item( button) r tNEXT) 

Animate "Select-, o **** 

sameFilter = False 

Set views (cuxrDomain) . frw • 

No. Hide 
Cose actNOW 

Animate -Select- o 
sameFilter = p a i se 
same view = True 

Set vi« we <cux3rDomain) = i iBtP _^ „ 
returncode - SHOWVIEW iX3tFrTn(currD ^ a i n ) 
Me. Hide 
Case act LATER 

currently non-functional 
Animate -Select", o 
'sameFilter = False 

rfturn^r (CUrrDOraain) = Friday 
returncode = SHOWVIEW 

Me. Hide 
Cace act WEEK 

Animate -Select- . 0 
sameFilter c False 

returncode = SHOWVIEW 
Me . Hide 
Case actWKEND 

currently T^-t^^*™* 
Animate "Select", 0 
'sameFilter = False 

'^«t viewe(currDomain) - fttttWV ^ 
returncode = SHOWVlw fr ****nd 
He. Hide 
Case actSCHED 

'currently non- functional 

Animate "Select-, o 
'sameFilter = False 

Set views (currDomain) = rrmSr-K ^ 
returncode * SHOWiEW fr7tlSch *a 
Me. Hide 
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Case actALPHASHOP 
Animate "Select", 0 

SetStatus 'Shopping, - & cards (cardNo). name, greyCOLOR 
nisg » Cards (cardNo) .act ionData 
Setlnfo msg, YELLOW 
Wait frruAlpha 

If returnCode <> BACK And userString <> Then 
sameFilter = False 
filters (currDomain) « "item* 

Set view© ( cur rDomain) = listFrm( currDomain) 
returnCode - SHOWVIEW 
Me. Hide 
End If 
Case actALPHATV 

Animate "Select", o 
- SetStatus "TV, ■ & Cards (cardNo J .name, greyCOLOR 
returnCode = PICK 
Me. Hide 
Case aetALPHAMOV 

*» b actALPHTVe *> 3 
•Animate "Select', 0 
■ Case act FILTER 

filters (currDomainJ = Cards (cardNo) .act ionData 
currFilter (currDomain) « Cards (cardNo) . in fotext 
sameFilter = False 
sameView = True 
returnCode = SHOWVIEW 
Me .Hide 
Case actMOVTE 

Animate "Select", 0 

If current > honieCARO Then 

currView(currDomain) = Cards (cardNo ). infotext 
vxewFilter = Cards ( cardNo) .act ionData 
same View - False 
sameFilter = False 

Else 

currFilter(currDomain) - • * Cards (cardNo) . infotext 
filters (currDomain) - Cards (cardNo) . act ionData 
same View - True 
sameFilter = False 
End If 

Set views (currDomain) = 1 is tFrm (currDomain) 
returnCode - SHOWVIEW 
Me. Hide 
Case act STORE 



(40) 



^53^8-292866 



Animate 'Select", 0 

Setlnfo "Choose a store:'. TURQUOISE 
Set Status 'Shopping*, greyCOLOR 
sameFrilter = False 
f liters ( cur r Domain) = •store" 
Set views { cur r Domain) - listFrrol currDomain I 
returnCode = SHOWVIEW 
Me. Hide 
case actDEPT 

Animate "Select" . 0 

setstatus -Shopping. * & Cards (cardNo) . info text . greyCOLOR 

sameFilter = False 

filters (currDomain) - "dept" 

userString c Cards (caxdNo) .name 

Set views (currDomain) = listFrmC currDomain I 

retumCode = SHOWVIEW 

Me. Hide 

Case shortTWIEW _ 

Animate "Select". 0 
currDomain - TV 

If views (currDonain) la Nothing. Then 

Sot views (currDomain) - frmComing 
End If 

sameFilter = True 
returnCode = SHOWVTEW 
Me . Hide 
Case shortMWIEW 

Animate "Select". 0 
curr Domain = MOVIE 

If views (curxDomainl Is Nothing Then 

Set views (curroomain) *= listFrnU currDomain) 
End If 

sameFilter = True 
returnCode - SHOWVIEW 
Me. Hide 
Case shortSPVIEW 

Animate "Select", 0 
currDomain - SHOP 

If views (currDomain) Is Nothing Then 

Set vi ewe ( currDomain] - 1 is tFrra (currDomain) 
End IE 

sameFilter = True 
returnCode = SHOWVIEW 
Me. Hide 

Case shortTVNDW _ 

cur rFllter (currDomain) = "All Categories" 

currViewt currDomain) = *TV 6:30pm : " 'obviously, this would be the current 

time 

Animate "Select", 0 
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currDomain = TV • 
f Liters {cur r Domain) - 
sameFilter = False 
same View - True 

Set views (currDomain) = listFrmf currDomain) 
rcturnCode = SHOWVIEW 
Me. Hide 
Case actKEYS 

SetKeys Cards (cardNo) .actionData 
SetStatus Cards IcardNo) .infotext, itemCOLOR 
current = homeCARD 
DisplayCard current 
Case actTABS 

ToggleTabs 
Case Else 

MsgBox "Bad action code for card ■ & Cards (cardNo) .name 
Stop 
End 
End Select 
End Sub 

Sub ChangeSel (direct As String) 
Dim n As Integer 

Dim last As Integer. Sel As Integer 
n = Cards (current) .Nit ems 
last = Cards (current) .selected 
If last * 0 Then Exit Sub 

If direct = "Right" Then 

If last - n Then 
Sel = 1 

Else 

Sel = last + 1 
End If 

Elself direct ~ "Left" Then 

If last = 1 Then 
Sel - n 

Else 

Sel - last - 1 
End If 

Elself direct = "Up" Then 

If last > MAXCOLS Then 
Sel = last - MAXCOLS 

Else 

Sel ~ last 
End If 

Elself direct - •Down" Then 
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IE last <= n - MAXCOLS Then 
Sel = last + MAXCOLS 

Else 

Sel = last 
End If 
Else 

MsgBox "Bad Direction- 
End 
End If 

Cards (cur-rent ). selected • Sel 
UpdateSel 
End Sub 

Sub DisplayCard (index! 

Dim depth as Integer 'number of visible cards 

Dim i As Integer 'counter 

Dim ancestor As Integer 'card numbers 

current s index 

parent = Cards (current ). parent 

depth - Cards (current! .level 

For i a MAXCARD To depth + 1 Step -1 

sspTitle(i) .visible - False 

sspCard(i) * Visible = False 
Next i 

ancestor = current 

For i « depth - 1 To 1 Step -1 

ancestor = Cards (ancestor ). parent 

sspTitle(i) .Caption = Cards (ancestor) . name 

sspCard(i) -Visible = True 

sspTitle(i) .Visible = True 
Next i 

sspTi tie (depth) .Caption = Cards (current > .name 
sspCard( depth) .Visible = True 
sspTitle(depth) .Visible = True 

Di splay I terns 
Encl Sub 

Sub Displayitems () 

Dim Area As SSPanel 
Dire i As Integer 
Dim Dx. Dy, x, Y, w r h 
Dim Nltems As Integer 
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Nlteras * cards (current) .KTCtems 

Set Area = sspCard (Cards (current > level) '*->,; • 

rent). level) thle 1B a pointGr Mt q c ^ 

Dx - Area. Width * .9 / MAXCOLS 

= Area. Height - .9 / maxkdws 
w = Dx * .g 
If w > 30 Then w - 30 
h = Dy * .9 
Xf h > 20 Then h = 20 

sspBlinlcBG. visible = False 
fispBlinkBG.zOrder 0 ^oT^< 

For i e 1 to Nltems 
sspitem(i) .Width = w 
sspltem(i) .Height « h 

espltem(i) .BackColor « greyCOLOR 
Eiae • 

eepltem(i) .BackColor - itemCOLOR 
End If 

x = Area. Left + .05 * Area Writi, ^ , t , • 

CQnterltemLpItid,^-" 01 ^ llBt,<1 " 11 ' ««COL S > * . s , ♦ o, 

sspltem(i) .ZOrder 0 
sspltem(i) .visible = True 
Next i 



CPlace 2. sspBlinkBG. sspltemll) 

For i = Nltems ♦ 1 To MAXITEM 

sspicem(i) .visible = False 
Next i 

UpdateSel 
End Sub 

Sub Form_Activate (> 

egpcont. Visible - False 
Select Case returnCode 
Cns& BACK 

It current c homeCARD Then current = l astCard 

UpdateSel 
Case SHORTCUT 

current - homeCARD 

Oiaplaycard current /ty h &<£ET2? greyCOLOR 
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UpdateSel 
Case FILTER 

SetStatus'ftl5*flEflIt'ra«r**fe«:*--^5/ K^ffiWf £. greyCOLOR 
If current < homeCARD Then 
DisplayCard current 

Else 

lastCard = current 
Select Case currDomain 
Case TV 

DisplayCard filterCARD 
Case MOVIE 

DisplayCard mfilterCARD 
Case SHOP 

DisplayCard current 
End Select 
End If 
UpdateSel 
- Case COMING 

Cards (current ) .selected ~ 2 
sameFilter = False 
Set views (currDomain ) = frmCoroing 
returnCode SKOWVIEW 
Me . Hide 
End Select 
End Sub 

Sub Form_KeyDown (Keycode As integer, shift As Integer) 
Dim index As Integer 
Dim n As Integer 

Select Case KeyCode 
Case B_BACK 

Animate "Back", 0 
Case B_HELP 

InvokeHelp 
Case B_PREVIEW 

userstation = l 

userStart = fakeTime 

returnCode = TOTV 

Me. Hide 
Case B — SELECT 

Bu t tonAc t i on 
Case B_RIGHT 

ChangeSel ("Right") 
Cage B — LEFT 

ChangeSel ("Left") 
Case B_UP 

ChangeSel ("Up") 
Case B_DOWN 

ChangeSel ("Down") 
Case B_PAGEUP 
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Case B_ PAGEDOWN 
Case B_l 

If cards (current) .Nlteras > 0 Then 
Cords (current I . selected = 1 
UpdoteSel 
ButtonAction 

End If 
Case 8.2 

If Cards (current) . NItems > 1 Then 
Cards (current) .selected = 2 
UpdateSel 
ButtonAction 

End If 
Case B_3 

If Cards (current) .NItems :* 2 Then 
Cards (current) .selected = 3 
UpdateSel 
ButtonAction 

End If 
Case B_d 

If Card© (current) .HItems > 3 Then 
Cards (current) . selected » 4. 
* UpdateSel 
ButtonAction 
End If 
Case B_5 

If cards f current ) .wit ems > 4 Then 
Cards (current) . selected = 5 
UpdateSel 
ButtonAction 

End If 
Case B_6 

If Cards (current) .NItems > 5 Then 
Cards (current ) .selected = 6 
UpdateSel 
ButtonAction 

End If 
Case B_7 

If Cards (current ), NItems > 6 Then 
Cards (current ). selected » 7 
UpdateSel 
ButtonAction 

End If 
Case B_8 

If Cards (current) -NItems > 7 Then 
Cards (current ). selected - 8 
UpdateSel 
ButtonAction 
End If 
Case B_9 

if cards (current) .NItems > 8 Then 
Cards (current) .selected = 9 
UpdateSel 
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ButtonAction 
End If 
Case B_0 

current « homeCARD 
DisplayCard current 
Case Asc("Q") 

End 
End Select 
End Sub 



Sub Fonn_Load { > 

sspCard(O) .BackColor - backgroundCOLOR 
sspTitle(O) .BackColor - backgroundCOLOR 
sspltem{0) .BackColor * itenCOLOR 
sspBlinkBG. BackColor * highlightCOLOR 
sspItem{0)..Foncsize = mediumFONT 
sspCard(O) .Font size = mediumFONT 
sspTitle(O) .FontSize « mediumFONT 
Me. BackColor - f ormCOLOR 

SizeAForro Me, dispTop, dispHeight, diepLeft, dispWidth 
Me. Scale (0, O>-(100, 100) 

* returnCode = BACK 

PopulateCards 

LoadGraphics 

DisplayCard homeCARD 
End Sub 



Sub LoadGraphics ( ) 

Dim i As Intt?ger 'counter 
Dim tabHeight 

For i M To MAX ITEM 

Load sspltemfi) 
Next i 



7 °f **<<7oi3-Y%m$z 

sspCard(O) .Top a sspltem( 0) . Height 

sspcard( 0| .Height = 100 - CARDSHIFT - sspCard ( 0) . Top 
sspCard(O) .Left - 2 * CARDSHIFT 
sspCard(O) .Width = 100 - 4 * CARDSHIFT 
•shape prototype tab 
sspTitle(O) . AutoSize <= False 

«pTitle(0) .Width = SB pCard(0>. Width / MAXTITLE + CARDSHI 

For 1=1 To MAX CARD 
Load sspcard(i) 

sspcard(i) .Height = sspcard(i - 1). Height - CARDSHIFT 
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sspCard(i) .Top = sspCardti - 1) .Top * CARDS HI FT 
sspCard(i) .ZOrder 
Load sspTitle(i) 

sspTitleU) .Top = sspCard(i) .Top - £cpTitle(0) .Height * 2 
Select Case (i Mod MAXTITLE) 

£ : r.tL60^r-Xi±R*c5lftrriTLEttt*ttT«:v* 
Case 1 

sspTitle(i) .Lef t = sspCard( i) . Lef t 

Case 2 ~ 

sspTitle(i) .beft = sspCard(i) .LeEt ♦ sspCard li ) .Width / 2 - 

scpTicle(i) .Width / 2 

CaSe 3 spTitle(i).Ueft * sspCardU>.Left ♦ sspCardti > .Width - ssprritle (i) .width 

End Select 

sspTitle(i) - ZOrder 
Next i 
End Sub 



Sub PopulateCacds O 
C QVrjV—y- > tt*«l: UT m&tftltz CARDFILES 7 A )l> 

r^T©1f>ilIft*— I'M:*— A3Ei— HOJtf C-fcfcttntffc 

fbttBrtOSttkUTW»«>WM- FU3- K 

Dim last As Integer, parent As Integer 
Dim selected As Integer 

Dim index As Integer. itemNo As Integer 
Dim level, title, text, action 
Open CARDFILE For Input As #1 

index = 0 

Cards t index) .name = "root" 
Cards t index) . level - 0 
Cards ( index) .NI terns « 0 
While Not EOF 1 1 ) 

last = index 

index = index + 1 

Input #1, level, selected, title. texL. action 
Cards ( index ). level = level 
Cards ( index) . selected = selected 
Cards (index) -name = title 
Cards 1 index) .infotext ~ text 
cards (index) .act ionCode = action 
If action > actNEXT Then 
Input #1. action 

Cards ( index) -act ionData = action 
End If 
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Cards ( index,. Nlteiw - 0 IHH»*.inB B y 1 
If Cards (index,. level - CarSE 

parent = l ast 
Eiseif Cards (index, .level i- r ^ 

D f gj'ttaWc;!^;^*' 1 "" -l«v.J Then 

°S©3ibnS^ e 5 x, lGvel c Cards 'i«e,. level , 

End 
End if 

C « r « e(index '- paren c - Parent 

Cards (0,. N item S = i 
Close #i 
End sub 

Sub tmrBlink_Tin,er (, 



SUJ5 t,nr Blink_Tin,er (, 

End r^ 1 "^^ - BXinXcentro^vi^ 



Sub ToggleTabs O 

1,1 i as integer 
Static offset 

" If rt ^ fSet = 3 5 Then 
offset = 2 

Else 

offset =35 
End if 

For i = i To 9 



Sub 



-wr i = l To 9 

Sub SSpTltle(0) -»«ioht + offset 



Sub UpdateSel (, 

°iw S as sspanel 
Dim text as String 
Dim color 

"talcStop False 
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i = Cards (current) .selected 
If i > 0 Then ftfrftgiR<*tl% 

x ^ S.Left ♦ S. Width / 2 
Y = S.Top * S. Height / 2 
'put blinker behind button 
Centerltem sspBlinkBG, x. Y 
'resume blinking 
BlinkStart sspBlinkBG, True 
End if 

coTL = Card *' c " d8 «^««t) .it«n(CardsCcurr*nt) .selected)) infotext 
color - sspltem<cards{current) .selected) .Backcolor ■ 1J "otext 

Set Info text, color 
End Sub 

S ftf«#^?! 5? te 9 er ' C As Control, Dest As control) 

Best* 3 > ^ d-jh-*^ X*** a C*3 > h D-^tsr^trn 
Dim i As Integer, j As integer 
Dim dl, dw, dt, dh 
dl = (Dest. Left - C.Left) / n 
dw = (Dest. Width - C. Width) / n 
dt = (Dest. Top - C.Top) / n 
dh = (Dest. Height - C. Height) / n 
C.ZOrder 

C.AutoSi-ze = False 
For i = 1 To n 

c:Sf«sh Left + d1, c,Top * dt - c - widch + dw - c -««^ ♦ ^ 

Next i 
End Sub 

* = — ~ — — ~ SELECT 7 — ^3 _ 

Option Explicit ' — 

Dim DB As databaeo -the full database 

Din Ust<l000, As String .ft. list oE selection strings 
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Dim leaf (1000) As Integer nth^B^V — ^©^lE. ^fUU^S* 

Dim listEnd As Integer V X h te<D&j&0&M<n& 

Dim currPrefix As String Tfcjl&^fc:*^ 

Dim initialList As Integer C <Z>U X h Jgi >T fc(C&&0#^f^^iEbV* 

Dim BLinkControl As Control ^l^^T^^^t/ r. £7 J* tt^UfiHW 3 *XTl^^ 

Dim itemSelected As Integer 1 *P6HAXDISPLAY£ 

Dim locSelected As Integer 1 i? £>MAXC0C & "C 

Dim rowOffset 2 otD£f&T*ra*2nfcJBQa> h v ^HO«» 

Dim allData As snapshot 
Dim fiiterData Ac snapshot 

Dim marker (100) As String ^HAXDISPUY^gO^^ ^V— ^ 
Dim locStarfc(lOO) As Integer D>T— ^ — ©BB$6©rItem>r >^ V 

* display parameters 

Const MAXDI SPLAY - 6 $ D — XV % 7 :/£ ttfcJHH COffi 

Dim MAXITEM As Integer ±UX hrtO^BOSC 

Dim maxixx: As integer p^"— - £ >0)£Sr _ 

Dim whichrltem(MAXDISPLAY) As Integer £a>rItem#3K?£^^^£fc 

Const GAP « 10 'space around lists 

Const EXTRA =70 •roam for longer programs 

Const reducedEXTRA = 20 tt/J*S*Lfca"*rtOft»0«IOfc»0;U— A 

Const T = 50 

Const H = 1000 - 2 * T 

Const locL = 30 Jfi'h£h,fcu;ih 

Const locW = 100 

Const dispL = locW + 2 * locL it^U^h 

Const dispW = 1000 - dispL - locL 

Sub BlinkStart (C As Control, vis* 

Set BlinkControl = C 

BlinkControl. visible = vis 

tmrBl ink. Enabled « True 
End Sub 

Sub Blinks top (vis) 

tmrBl ink. Enabled = False 

If BlinkControl Is Nothing Then 'do nothing 
Else 

BlinkControl. Visible - True 
End If 

Set BlinkControl « Nothing 
End Sub 

Sub ChangeLoc (direct As String) 

Select Case direct 
Case "Up* 

If locselected > 1 Then 

locSelected * locSelected - 1 
RedoDi splay 
End If 
case. "Down* 
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If locSelected < KAXLOC Then 

locSelected - locSelected + 1 
RedoOi splay 
End If 
End Select 
-End Sub 



Sub ChangeSel (direct As String) 

Select Case direct 
Case "Up" 

If itemSelected > 1 Then 

EWES?*? tlx i\ Sfflgf*i7?-tt:^© 

ItemSelected = itemSelected - 1 
selector. Top ■ i temBox{ itemSelected J , Top - GAP 
ritem(O) .Top ■= locator. Top «- rowOf feet * (itemSelected - 1) 
Setlteminfo 
Elself locSelected > 1 Then 

itemSelected = MAXDI SPLAY 
locSelected = locSelected. - 1 
RedoDiaplay 
End If 
Case •Down" 

if itemSelected < MAXDX SPLAY Then 

If (locSelected - 1) * MAXDISPLAY + itemSelected < HAXITEM Then 
itomSelected « itemSelected + 1 
select or. Top - itemBox ( itemSelected) .Top - GAP 
rItem(0).Top = locator. Top + rowOffset * (itemSelected - 1) 
Setltemlnfo 

End If 

Eleelf locSelected < MAXLOC Then 

itemSelected = 1 
locSelected = locSelected «- 1 
RedoDi splay 
End If 
End Select 
End Sub 



Sub Deselect ( ) 

Dim index As Integer 

Dim count Afi Integer 

Dim i As Integer 

Dim nextChar Ae String 

Dim looking As Integer 'boolean 

Dim title Ae String 



index ~ locStart ( locSelected) 
If leaf (index) Then 



+ itemSelected 



1 
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title = removeArnpersand (list (index) ) 

f ilter Data. FindFirst *SelectTitle * & title & « * ■ • 

If filterData.NoMatch Then 

Do 'prompt for different title until Eound 

& : cftttjecefciv ".Tn^f-^^- 

title c Input Box (title & " not found. Enter new title:*, title) 
f ilterData.FindFirct "SelectTitle =■ m * • 4 title & •••« 
Loop Until Not f ilterData. WoMatch 
End If 

userString = filterOata { • FullTi tie" I 
Set views (TV) = frmWeek 
sameFllter - False 
retuznCode = SHOWVTEW 
He. Hide 

Else 

$ii?&&z r>x c * fen— -trcgre** 

itemBox(ltemSelecced) . BacJtColor * greycoLOR 
Setlnfo 'Loadinsr data, please wait..,-, greyCOLOR 
DoEvents 

i = Len (list ( index) ) 

currPrefix = " " 

If initialList Then 

currPrefix = list ( index I* 

Else 

If i > 2 Then currPrefix * Left ( list (index) , i - 2) 
currPrefix - currPrefix & Right ( 1 iet (index) , 1) 
End If 

SetStatue "TV Titles starting with * & currPrefix, greyCOLOR 
'construct new list 
If initialList Then 

l£ index * 1 Then 

initialLiBt = False 

filterData . Filter = -SelectTitle < *A'" 
currPrefix = " ■ 

Else 

listEnd ~ o 

For i = 1 To Len (currPrefix) 

'strip out the letters (ignore commas) to make a new list 
If Mid (currPrefix, i, 1) >e -a* Then 
listEnd = listEnd + 1 

list (listEnd) « & Mid(currPref ix, i, II 

leaf(i) - Falae 
End If 
Next i 
End If 

Else 

mL^ru ? 4 y 9 x Jt -3 C^-^ 7^ ij 

filterData. Filter = "SelectTitle like • • & currPrefix & •*•• 
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End If 



If Wot lnicialLioc Then 

sec mterData = f ilterData .CreateSnaoshoL c | 
f llterData.MoveFirftt 
listEnd e 0 

counc = 0: looking * True 

While Not filterData.EOF And looking 

If nextChar = Chr(i) Or oextChar = LCase (chr (1) , Then 
count = count ♦ 1 ' ' inen 

f i 1 terpatn . KoveNext 

Else 

looking » False 
End If 

Wend 

Select Case count 

Case 0 'J* hCttjta*fcv> 

Case 1 i;-7x>H;-£^<£ 

f i 1 t erDa t a . Mo v e Pr e vious 

listEnd = listEnd + i 

SmKES : S2r r ~ dl,mt "- ««*i..„, 

£i 1 1 a rD* t a . No voNext 

f ilterData .Move Previous 
listEnd = listEnd + 1 

, ^^^i,;^^^^^^- >^-^ >*3< < 

f ilterData .KoveNext 
End Gfti&ct 
Next i 

If £ "^ e j f?» ta - Reeo «SC«wnt <= MAXDI SPLAY Then 

ListEnd * o 
f i 1 t e cDa t a . Ko veFi r s t 
While Not filte.rData.EOF 
listEnd * listEnd L 

filterData. Movewext 

Wend 
End if 
End If 
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•disDlay the newly created li«t _ 
itemBox( itemSelected) .BackColor = itenCOLOR K U < fM« Hfc 'J * K 
initialList = False 
If listEnd > a Then 
NeuList 

El s e 

locSelected = 1 
itemSelected = 1 
DoSelect 
End If 
End If 
End Sub 

Sub ForauActivate (> 

LoadData 
NewList 
End Sub - 

Sub FornuKeyDovm (KeyCode A3 Integer, Shift As Integer) 
Select Case KeyCode 
Case Agc("Q") 

End 
CdS6 B BACK 

itTy^hO + fcfeW^a^tt* 1 ^^^*^^ 0 ^*'* 1 £rom * Particular choice in 

returnCode = BACK 

Me. Hide 
Case B_HELP 

InvokeHelp 
Case B_PREVIEW 
Case B_jS ELECT 

DoSelect 
Case B_UP 

Changesel {-up") 
Case B_DOWN 

- Change Sel I "Down* ) 
Case B_RIGHT 
Case B_LEFT 
Case B_FAGEUP 

ChangeLoc ("Up") 
Case B_PAGEDOWN 

Cliangel<oc < M Down") 
Case B_FILTER 
Case B_0 

returnCodo = SHORTCUT 

Me -Hide 
End Select 
End Sub 



Sub Form_Loafl ( ) 

Dim i As integer jfjO>^ 
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Dim itemRoom 
&£?*> h£-tr* N 

itemBox(O) .FontSize - largeFONT 
rtghtArrow(O) . FontSize » largeFONT 
rltcm(0l . BackColor = itemCOLOR 
selector . FillColor «■ highlightCOLOR 
displayLtst . FillColor = backgroundCOLOR 
locator . FillColor = backgroundCOLOR 
iremBox I 0 ) .BackColor = itemCOLOR 
rightArrow(O) .BacfcColor = itemCOLOR 
shpSlot .BorderColor s slotCOLOR 

SizeAForm Me, DispTop. DispH eight. DispLeft, DispWidth 
Me. Scale <0, 0)-<1000, 1000) 

SizeAControl locator, T - GAP, H + GAP, locL - GAP, locW «- 2 * GAP 

SizeAControl shpSlot, T, H, locL 4 reducedEXTRA, locW - 2 * reducedEXTRA 

SizeAControl displayList, T - GAP, H + GAP, dispL r dispW 

locator . ZOrder 

ahpSlot . ZOrder 

rltera<0) .ZOrder 

itemRoom = H / MAXDISPLAY 

SizeAControl itemBox(O), T + (.5 * GAP) , itemRoom - GAP, dispL + EXTRA, dispW 
2 * EXTRA 

SizeAControl leftAxrow(O) , T + (.5 * GAP), itemRoom - GAP, dispL, EXTRA 
SizeAControl rightArrow (0) , T + <.5 • GAP), itemRoom - GAP, dispL ♦ difipW - 
EXTRA, EXTRA 

SizeAControl selector, T, itemRoom «■ GAP, dispL, dispW 

selector . 20rder 

For i = 1 To MAXDISPLAY 

Load itemficocfi) 

itemBox(i) .Visible = False 

itemBox(i) .Top = itemBox(O) .Top * (i - 11 * itemRoom. 
Load rightArrow(i) 

rightArrow(i) .Top = itemBox ( i) . Top 
Next i 
End sub 

Sub OoadData ( ) 

Dim refsnap As snapshot 

Const MAXTOGETHER = MAXDISPLAY V> £ TPGOJg g# y & X (.lfi^£ tl&JC&Bl 
Dim together 

-f = i^ + ;Hr U^^s> 'J* h2rJf<&£ 
Li&tEnd = 0 

Sec DB = OpenDatabaGe(TVTitles) 

Set allData = DB. Creat ©Snapshot f "Titles" ) 

Set ref Snap = DB. CreateSnapshot ( "Reference" ) 

ref Snap.MoveFirst 

together = MAXTOGETHER fcjgy 

While Not reCsnap.EOF 

Select Case ref Snap ( "Number" ) 
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Case 0 

Case 1 

•J-7i> V 'J— fcffilffiTa 
listEnd = listEnd + 1 

allData. FindFirst 'SelectTitle liko ■ b refSnap( 'Utter' | & ■*- 
liscOiStEnd) » allData( -SelactTitle" ) 
leaf (listEnd) = True 
together - MAXTOGETHER 
Case Else 

If re£Snap< •Letter-] = Then 

listEnd = listEnd + 1 

list (listEnd) = •symbol or Number" 

together = MAXTOGETHER 

'note: DoSelect relies on chis entry being the first list item 

Elee 

If together >- MAXTOGETHER Then 
listEnd ■ listEnd + 1 
list (listEnd) = ref Snap ("Letter • ) 
together ■ 1 

Else 

list (listEnd) - li*t ( listEnd) fc • , 9 & ref Snap ( -Letter- ) 
together - together + 1 
End If 
End If 

loaf (listEnd) = False 
End Select 
ref Snap. MoveWext 

Wend 

Set filterData = allData 
initialList = True 
End Sub 

Sub NewLisc () 

m : itemSelectedtt l^ORKPtHOJSMbSnftWatfttfeav^? 
Dim i As Integer ^OV? 

Dim section As integer O (T — 9 — Q^r — 3 >G)fiJt^23E£. & 
Dim msg As String 

'clear captions 

For i s 1 To MAXDISPLAY 

itemBox ( i 1 . Caption = 

Next i 

For i = 1 To MAXITEM 

Unload rltem(i) 
Kcxt. i 

MAXITEM = listEnd V * h (DfyCDIR 

rowoffset - (H - rltem(O) .Heightl / MAXITEM 

If rowoffset. > rlcem(O) .Height + GAP Then rowOffset = rltem(O) .Height * GAP 
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rltem(O) .Visible = False 
rltem(O) .Top = T 

rltem{0) .Left = locL + reducedEXTRA 
rltem(O) .Width = locW - 2 * reducedEXTRA 
rltem(O) .BackColor = itemCOLOR 
f i 1 terData . MoveFi rs t 

section = 0 d >t— 9 — nir—\ U 3 

For i = 1 To MAX IT EM 
Load jrltemli) 

rltem{i) .Top = T + (i - 1} * rowOffset 
If <<i - 1) Mod MAXDISPIAY) - 0 Then 

Il^n^- try— > 3 >&mt& 

section = section ♦ 1 
locStart (section} « i 
End If 

If Not leaf(i) Then 

rltem(i) .Width « rltem(i) .Width + reducedEXTRA 
End If 

rltem(i) .zorder 
rltem(i) .Visible = True 
Next i 

KAXLOC = section 

locStart (section +1) = MAX ITEM ♦ 1 

minselectorcDg^ y V 

l-*Uf*k. Lrrltcm(0)*«ffl 
rltem(O) .Left « locL - GAP 
rltem(O) .Width = locW + 2 * GAP 

* u£ * h o y - * -£jgg#Ht. 

itemselected = 1 
locSelected =1 

rltern(O) .BackColor = highlightCOLOR 

RedoDicplay 
End Sub 

Sub RedoDisplay () 

Dim last As Integer ^< X ru-j' rtCOJItecDJEBcOgi 
Dim i As Integer J3 0># 

Dim index As Integer *) X h P^OJTSSOO^ * 0 X 

index x locstart (locSelectedl "* 
For i = 1 To MAXDISPLAY 

If index > MAXITEN Then 

itejnBox(i) .Caption = *■ 
itemBox(i) .Visible s False 
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rightArrow(i) -Visible « False 

Else 

itemBoxd ) .Caption = list (index) 
If Not leaf (index) Then 

rightArrow(i) .Visible = True 

it emBax (i ) -Caption = UCese ( list < index) I 

Else 

rich tArrow(i) .Visible = False 
End If 

itejnBox(i) .Visible = True 
last * i 

index = index + 1 
End If 
Next i 

7 v > 9 A $ &tR& ft 2> Z t & 8* & t ^ 
If itemSelected > last Then 

iteroSelected = last 
End If 

displayList. Height = H + 2 * GAP - IH / MAXDISPLAY * (MAXDISPIAY - last)) 
selector. Top - itemBox( itemSelected) -Top - GAP 
locator. Top - T + rowOffset * ( locStart ( locSelected) - 1) 
locator. Height »= last * rowOffset <■ ritemt 0 ) .Height - rowOffset 
rltemfO.Top - locator. Top + rowOffset * (itemSelected - 1> 
rltom(O) , Visible = True 
Setltemlnfo 
End Sub 

Function remove Ampersand (oldText as String) As String 

Dim text as String 
Dim newText As String 
Dim i as integer . 

text - oldText 

newText = - - 

While IhStrttext, "&&") 

i = TnStr(text, •&&") 

newText = newText fie Left (text, i) 

text - Right (text, Len(text) - (i * D) 

Wend 

removeAmpereand - newText & t«xt 
End Function 

Sub Setltemlnfo <) 

Dim msg As String 
Dim index As Integer 
Dim F As snapshot 

If Me. Visible Then 
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Option Explicit C ^ 
Const GAP = 700 

Sub Form_Activate t) 
Dim m sg As String 
Dim DB As database 
Dim Programs As table 
Dim startTime 
Dim refSnap As snapshot 
Dim rnfDatn 

Dim startTS, finishTS, nowTS 
Set DB = OpenDatabase<TVDB) 

refDate = DateValue (ref Snap ("Data" , | 

PrL " DB -°P<>«Tabl«(. Programs-) 

Programs . Index = 'ID' 

P a- S I-^'^ k /°"' ""Station, ueerstart 
If- Programs. NoMatch Then 

ref snap. PindFirst -station „ 
refSnap.FindNext TinishTS > • fi J £ "f^f f* tion ' 

— ■ - - ^»«s:{: see; 

startTS * DaceDiff f-n- «in h 

ms fl « -you are wSchinJ" nOWM Then 



30 

\ 30 
30 



Else 

j 

End If 



= -The VCR i s set to record 



»« S g = msg & Chr(13) & F o™at?ProQ r i Pr ??r ams( ' St * t ^n">> 

_ ... ^ f i^~) : :i;= =; 

textArea. Caption = msg 
End Sub 9 
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Sub FornuKeyDown (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case B_ BACK 

xeturnCode = LASTVIEW 

Me .Hide 
Case B_0 

returnCode = SHORTCUT 
Me .Hide 

Case AscCQ") 

Cnd 
Case Else 

rcturnCode = BACK 

Me. Hide 
End Selert 
End Sub 



Sub Flpmv^ Load ( ) 

textArea . Caption = m " 
textArea. FontSize = largoFONT 
SizeAForm Me, 0. ScrHeight. 0. ScrWidth 

SixeAControl text Area, GAP, ScrHeight - 2 * GAP. GAP. ScrWidth - 2 • CAP 
End Sub 

[0 0 3 8] 

====== TV^ K7*-A3-H =«=== 

-laager 

3> ho— /W±7*-AjCP&7*-i»^y*— (^d— y^^^o 
Option Explicit 



Global Const CARDFILE - 'c:\pctv\db\cards2.txt* 

Global Const MVDB -= 'c: \pctv\dbSpiots.mdb" 

Global Const SPDB - -cr\pctv\dMshopping.mdb" 

Global Const TVDB = •c:\pctvAdiAbig.mdb* 

Global Const TVTitles = •c:\pctv\db\titlec.mdb* 

Const CATDB = •c:\pctv\dbVcatB.mdb* 

Dim typeTable As table TV^<7ID3 

Dim catTable As table T V \) — I D s 

Dim statTable As table Xf- 4 >3>IDs 

Global fokeToday H 

Global fakeTime iQMR&Stt 

Global displayMode As string P CtpT Vtc' &tjV fe-fe h ( 7 * > h £ ^7 7 -< * ^CDIM' X 
Global ncwUGRr As Integer 7*~;i/ lEbV^^x h > **s)V7tmL h 

Global ScrWidth. ScrHeight 

Global DispTop. DispHeight. DispLe£t, DispWidth 7 V"- AF^SflT-7 — 5-*. e>JX5> 



Global Const highlight COLOR = fcH80flOFF «fc 
Global Const backgroundCOLOR « &K80FFFF -fXD- 
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Global Const itenCOLOR = &HFFFFCO ^4 Y?fo— 

Global Const formCOIiOR «= &HFF0OO0 tr—$°7fr— 

Global Const wbxteCOLOR ■ &H8000000S ifiV 4 K 

Global Const greyCOLOR = fcHCOCOCO 

Global Const blackCOLOR = LHOfc 

Global Const slotCOLOR = LH6000OO05 1& T J 4 Y 

Global Const borderCOLOR = tHFFt l/yf 

Global Const divideCOLOR = &HFFFFL '<£7-<Y. 
Global Color(lO) *H > [Zt%#> $ htc&Pl 

Global Const small FOHT = 13.8 

Global Const mediumFONT =18 

Global Const largeFONT =24 



Global Const WOVrE * 0 
Global Const TV = 1 
Global Const SHOP = 2 



Global lifltFrraO) As Form 
Global TVliat As New inraList 
Global MOVlist As New rnnfcist 
Global SlioPlist As New frmList 



* ******************************** 
Global curr Domain As Integer 

Global £ilters(3> As String Tfitt£<Dffi&y < ^O^xV —X b 'J >^<©Sd^J 
Global currFilter (3) As String 

Global currVi*vr(3) As String afc^tfttWDy-** V« -f h *fc*X.£ 

Global views(3) As Form RSfl)|«Ka-OiS»IJ 1^ coming or TV schedule, 

for instance) 

Global viewFilter As string iSW^lfiK&Srf^Sfc^tl^^^— 7, 

Global userstring As String jjl— tf C J; b U 

Global userMsg a— i/iT-S'Tt" S fc^O^ y-fe — i?Xh*)>P 
Global userstation :x— V'iZ J: ^>T jS4R$*lfcfifci££} (X? 1 — *>3>) 
Global userStart a— Vt' J; t1tzB$\Q 

Global sameFilter As Integer 7—frf=— U 7 4 HI Ut* 

Global sameView As Integer 0 ®Td&S#fc 4 WttTF. UV* 

i; * — ■ l-MifniiFraneXttfrBOftxtoHffiaiCOfcftKir* bftTtls b 5*»ft*3* 

Global r«turnCode As Integer 

Global Const BACK - 0 

Global Const TOTV = 1 

Global Const LASTVIEW a 2 

Global Const SHORTCUT = 3 

Global Const DONE =■ 4 
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Global Const FILTER = 5 
Global Const COMING = 6 
Global Const SHOWVIEW = 9 
Global Const ALPHA = 10 
Global Const PICK * 11 
Global Const STARTUP *■ 12 



K&3£S£ 



Global Const MAX IT EM = 9 Y Y.<T>i£9 

Type Card 

self As Integer S^LM^? 0* 6ft 

level As integer tftfrtbt8tlt:?3— K<Z>& 

name As String ft? $±CJWXZ>7'*'7, > 

infotext As String tSffi^— ffiO^X h 

actionCode As Integer &tR2fthf z t %tZ$Lt>tl&T9 3 >ffl£0^— K 
actionData As String y 5/ 3 > J: 5 t^a^^ b ^ffitti 
parent As integer Y^fo 
NItems As Integer 27- • t=±££;t * 

IterofHAXITEK) As Integer £~ h*#>f >^C0ffi?>J (*— K±CD-f n-en^TK^ >Ct> il ^) 
selected As Integer aS^J^HfcTtf^ 
End Typo 

MAXCARDSY ^^^-KfcT^iWI 
Global Const MAXCARDS = 1000 
Global Cards (MAXCARDS ) As Card 



Global B_BACK 
Global B_HELF 
Global B_PREVIEW 
Global B_UP 
Global B_DOWN * 
Global B_LEFT 
Global B_RIGHT 
Global B_S ELECT 
Global B_PAGEUP 
Global B_PAGEDOWN 
Global B_l 
Global B_2 
Global B_3 
Global B_4 
Global B_5 
Global B_6 
Global BJ7 
Global B_8 
Global B_9 



Global B_0 
Global B_FILTER 
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Global Const RED 

Global Const ORANGE = &H80Firx. 

SS Si JSf/M 

22S Si 22f = tHPP00PP 

* 

•* CONSTANT. TXT*» c, 

Gl^ , 5° nSt ^-CANCEL = tjf 
Global Const KSYJOOTOWI - 

cif Si 5"-; - c 

«s se « 

Global Const KEjCcSSoi = 6H1 1 

2£J Si SSSSa- ™ 

Global Co„ 8t KEY_NEXT = S JJJ 
SotTi C ° nSC KEY - END - «23 

£25 c onst KEy - up = <™ 
«2S Si 

SS cSi skh? - «. 
S£i Si Be™ 

Global con^t k E v^ SERT = &H2 ° 



IN 
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Global Const K E Y_NLJMPADO = &H60 
Global Const KEV_MUMPAD1 = &H61 
Global Const KEY_NUMPAD2 = &H62 
Global Const KEY_NUMPAD3 = &H63 
Global Const KEY_NUMPAD4 = &H64 
Global Const KEY_NUMPAD5 = &H65 
Global Const KEY_NUMPAD6 = &H66 
Global Const KEY_NUMPAD7 = &H67 
Global Const KEY_NUMPADB = &H6B 
Global Const KEY_NUMPAD9 = &H69 
Global Const KEY_MULTIPLY = &H6A 
Global Const KEY_ADD ■ &H6B 
Global Const KEY^SEPARATOR ■ &H$C 
Global Const KEY_ SUBTRACT b &H6D 
Global.Conet KEY — DECIMAL - &H6E 
Global Const KEY_D XVI D E - &H6F 
Global Const KEY_F1 » &H70 
Global Const KBY_F2 = &H71 
Global Const KEY_F3 = &H72 
Global Const KEY_F4 » &H73 
Global Const KEY_F5 = &H74 
Global Const KEY_F6 = &K7 5 
Global Const KEY_F7 = &H7 6 
Global Const KEY_F8 = &H77 
Global Const KEY_F9 = StH78 
Global Const KEY_F10 = &H7 9 
Global Const KEY_F11 = &H7A 
Global Const KEY_F12 = &H7B 
Global Conet KEY_F13 » £H7C 
Global Const KEY_F14 « &H7D 
Global Const KEY_F15 = &H7E 
Global Const KEY_F16 = &H7F 

Global Const KEY_NUML,OCK - &H90 



Function Cat ego rySt ring (typeCode As Integer, catCode As Integer) As Strir 

Dim msg As String 

mag = "Category: *~ 

typeTabl* . Index - "ID" 
typeTable. S«ok typeCode 
If typeTable.NoMatch Then 
msg - msg & typeCode 

Else 

nisg = msg & typeTeble ( "Name • | 
End If 

msg - msg t « , « 'all on one line, replaced: Chr(13) & "Subcategory: • 
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catTable. Jnd«x = "ID" 
catTable . Sook • = ' , catCode 
If catTable. NoMatch Then 
msg = msg St catCode 

Else 

msg = msg & catTable ( "Name" ) 
End If 

categoryString = msg 
End Function 

Sub CCopy (Cfrom As Control, Cto As Control) 

Cto. Caption Cfrom. Caption 
Cto.BackColor = Cfrom- BaekColor 
Cto, Top - Cfrom -Top 
Cto. Height = Cfrom. Height 
Cto. Left » Cfrom. Deft 
Cto. Width = Cfrora. Width 
Cto.FontSize = cfrom. FontSize 
End sub 

Sub Centerltem (Item As Control, x, y) 

It«m!Left = x - Item. Width / 2 
I tern. Top - y - Item. Height / 2 
End Sub 

Sub CPloce (extra, Cfrom As Control, Cto As Control) 
Cfrom£Ctoh;fcfcDtC5tC. ;c** h ^ CDaSV^ OttT 7 V-X 
Cfrora. Top = Cto. Top - extra 
Cfrom. Left = Cto. Left - extra 
Cfrom. Height = Cto. Height + 2 * extra 
Cfrom. Width = cto. Width + 2 * extra 

End Sub 

Function DayString (d, length As String) As String 

Select Case Weekday (d) 
Case 1 

If length - -long- Then 
DayString - "Sunday" 

Else 

DayString = "Sun" 
End If 
Case 2 

If length = "long* Then 

DayString = "Monday" 

Else 

DayString = "Mon" 
End If 
case 3 

If length = "long" Then 
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Days t ring = 'Tuesday - 

Else 

DayString - "Tue" 
End If 
Case 4 

Tf length = -long- Then 

DayString = "Wednesday" 

Else 

DayString = "Wed" 
End If 
Case 5 

If length = "long* Then 

DayString = 'Thursday* 

Else 

DayString = w Thur' 
End if 
Case € 

If length = "long" Then 
DayString » "Friday" 

Else 

DayString « "Fri" 
End If 
Case 7 

If length « "long" Then 
^ DayString = "Saturday- 
Else 

DayString = "Sat" 
End If 
End Select 
End Function 

Function fixAmpersand (text As String) 

Dim i As Integer 

Dim oldText As String 

Dim newText As String 

newText = " " 

oldText = text 

While InStr{ oldText, "&-) 

i = InStr {oldText, 

newText = Left (oldText , i - 1) & 

oldText o Right (oldText, ben (oldText) - i> 

Wend 

f i*Antper9and » newText fc ©ldT«xt 
. End Function 

Sub InvokeHolp () 

TellUser "Press Help (?> again for general help, or press any button on the 
remote Eor help with that button. • 
select Case returnCode 
Case B_HELP 
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TellUser "General Help: ■ 
Case B_FREVTEW 

TellUser "Use the Preview button to see a video preview of the highlighted 
selection . • 

Case 5 ..BACK 

TellUser "Use the Back button to back up to the previous screen." 
Case KEY_ ESCAPE 

TellUser -Use the Shortcut Key to get to the shortcut buttons." 
case B_S ELECT 

TellUser "Use the select button to choose a highlighted option." 
case Else 

TellUser *This help screen is not written yet." 
End Select 
end Sub 

Sub Main () 

Dim i As Integer 

Dim DB As database 

Set DB - OpenDatabase(CATDB) 

Set typeTable * DB . OpenTabl e I " Type ■ ) 

Set catTable = DB .OpenTabl© I "Category ■ ) 

Set DB o OpenDatabaae (TVDB) 

Set ctatTable • DB. OpenTabl e < "Stations ' ) 

SetKey& displayMode 

Set listPrm(TV) = TVlict 
Set 1 is tFrm (MOVIE) * MOVlist 
Set listFrm(SHOP) = SHOPlist 

Color { 0 J = &HBFBF00 :r-f — JUPV — > 

Color fl) = &HFFFF80 ^--f h ZT)\,— 

Colort2j = &HFFC0FF ^-fhtT>^ 

Color (3) = fitHFFSQFF 4T— O 9 

color (4 J = &H80C0FF ^ 7 s -f T U% V > is 

ColorlS) = &HC0FFC0 7^rYXF^U-> 

Color (6) e 4HFF6080 □I't^/^ 

Color (8) = &HFFC0C0 ^>^r_ 

Color (7) = &HC0C06 ^ _ jp JV 

fakeToday « CVDate ("6/12/94") 
. fakeTime - CVDate ( H 6: 30 PM" > 

newUser - True 

frmFrame . Show 
Do Events 

Load fnuDex 
Load fntAlpha 
Load fntfrv 
Load frmMsg 
A — 1^-7*— * 
currDomain e MOVIE 
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viewFilter = -Year >= 1993* 
currVievlMOVTE) * 'Recent Movies • 
cuxrFilter (MOVIE) = ": All Categories' 
SetStatus -Movies', greyCOLOR 
Load listFrm(MOVIE) 

currDomain = SHOP 

filters (SHOP) * ^ rOD 

Set Status 'Shopping, compact disks", greyCOLOR 
Load listFrmlSHOP) 

currFilter(TV) = -Basketball' 
currDomain = TV 
filters (TV) = -Category = 39" 
userString = -Nova* 

UstFrm(7V)£D--K 
frmCooingfcP — F 
fnnVktiay£n-K 
fnnSelect&U-H 

SetStatus -Use arrows and select or us* keypad.', greyCOLOR 
f nriDex . Show 
End Sub 

Function Overlap (beginTS, endTS > ^String 

**oJirtW -^MStLtW - - t Str(endTS) 6 • And FinishTS >= - 4 Str(beginTS) & -I- 
End Function 

Sub Set Info (text As String, Color I 

Dim 3 as sspanel- , , . 

set s = frmFrameisspInCo 'works as long as forn is loaded 

s. BackColor = color 

s. Caption - te>ct 

End Sub 

Sub SetKeys (mode As String) 

B_l = KEY_NUMPAD7 
B_2 = KEY_NUMPAD8 
B_3 KEY_NUMPAD9 
B w 4 = KEY_NUMPAD4 
B_5 " KEY_NUMPADS 
B fc 6 = KEY_KIUMPAD6 
Bl7 = KEY_NUMPAD1 
B^6 = KEY_NUMPAD2 
B_9 = KEY_WMPAD3 
If mode « "TV" Then 

B BACK = KEY_SUBTRACT 
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B.HELP « 18 C0*-©*«*W**>***^ 
• B_PREVIEW - KEY_ADD 
B_UP = Asc< • 8" ) 
B_DOWN = Asc ( "2 - ) 
B_LEFT = ASC ("4") 
B_RIGHT = Asc ("6") 
B_SELECT = AscfS") 
B.PAGEUP - KEY_DIVIDE 

bIpagedown = A6C CO") 
B_0 = KEY__ MULTIPLY 
B_FILTER = KEY^RETURN 

Else 

B_BACK c KEY_F1 
B_fiEDP « KEY_F3 
B^PREVIEM = KEY_F2 
B_UP e KEY_UP 
B_DOWN = KEY — DOWN 
B_LEFT « KEY.LEFT 
B_RIGHT = KEY_RIGHT 
B.SELECT = KEYJRETURN 
B_PAGEUP = KEY_PRIOR 
B_PAGEDOWN = KEY_WEXT 
B_0 - KEY_NUHPADO 
B_FILTER " KEY_F4 
End If 
End Sub 

Sub SetStatus (text As String. Color) 

Dim s As SSPanel . , ia ,. 

Set s = frmFramelsspStatus '(works as long as form is loaded) 

b .BackColor = Color 

s. Caption = text 

End Sub 

Sub SiadAControl (Item As Control, t, H, 1, w) 

Item. Top - t 
Item. Left = 1 
Item. Height = H 
Item. Width - w 
End Sub 

Sub SizeAForm ( f rm As Form, t, H, 1, w) 

frtn.Top = t 
frm.Left = 1 
frm. Height = H 
frm. Width = w 
End Sub 

Function StationString <&) Ae String 
statTable. Index = ■ ID" 



(70) !$M ¥8-292866 

26 

statTable. Seek s 

If statTable. NoMatch Then 

MsgBox "illegal station ID a 6 s 

Stop 
End If 

StationString statTable < 'Name" ) 
End Function 

Sub TellUser (message As String) 

^7u^$ns$ u-> ht^ ^-te-^sft^r* 

userMsg « massage 
Wait frmMsg 
End Sub 

Function TiraeLabel (t) As String 

Dim e As String 
s = Format (t, "hhrmm AM/PM" ) 
If Mid(s, 4, 2J = -3D P Then 
TimeLabel = • * 

Else 

a » Format (s. «h AM/PM') 
'AM/PM*tt**t 

TimeLabel = Left(s, Len(s) - 3J 
End If 
End Function 

Function TimeString (aDateJ As String 
Dim theTime As String 

theTime = Format {aDate, "hh:xnm AM/PM* ) 
theTime = Deft (theTime. 5) 'take just "hh:mm' part 
If Left (theTime, 1) - '0" Then 
theTime = Right (theTime, 4) 
End If 

TimeString = theTir&e 
End Function 

Sub Wait ( F As Form) 

F . Show 
"While IF. Visible) 
DoEvents 

Wend 
End Sub 
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Option Explicit 

Dim allData(8> As snapshot ^MiHO^tXO^—^ 

Dim filterData<8) As snapshot W&Kl&V Z&E<DZ* v h 

Dim NDays As Integer &^F*30BC5<DB 

Dim NSlots As Integer 

Dim NProgs As Integer &^rt£>#!fl<08c in display 

Dim colorField As String j£ — fctfejfc-T *7 < — )U K 

Dim inPreview As Integer LIE LtftU*?" U 

Dim refDate f-^^i'^Uj; hffl© , J7 7|//'X0N' 
Dim slotsPerDay As Integer 1 B t^^Fcf ftfc ^Hy h OS 
Dim currDay ^fHWlfe _ 
Dim dayWidth As Integer Hfr^^>b©W 
.Dim IblHaight Ao Integer Eft-^'Vt'^i&c 5 
Dim infoHeighfc As Integer $r%kft,$tl1ttii$ls 
Dim timeHeight WH^^/WOH* 
Dim startTime fcT.3-— fflCDMS&^M 
Dim TSBegin As Long ^B^StflO^ A*D y h 
Dim TSEnd As Long ^ BOS&O* -f A* EJ y h 
Dim TScurrent As Long JIfiEOS&CO*' -f A* O y h 

Sub Apply Filter ( ) 

userString©^ h *U:«k a»JM * ^ >^ 

Dim i As Integer 'counter 

For i = 1 To NPaya . 

allDatati) .Filter = 'Title =•■■«, uc«rString & 
Sat f ilterDatafi) = sllData ( i \ . CreateSnapchot ( ) 
filterData(i) .Sort = -StartTS* 

Set f ilterData (i) - filterData (i ) .CreateSnapshot ( ) 
Next i 
Ena Sub 

Sub ChangeSel (d As String) 

Dim current 'as database marker 
Dim success As Integer 'boolean 
Dim 6 As Integer 'station number 
Dim best 

Dim TS As Long ' time slot 
Dim F As snapshot 
Dim aDay As Integer 
Dim marker 'a* bookmark 
Dim arrows Aa String 

current =■ t ilterData I currDay ). Bookmark 

Set f *= filterData (currDay) 

s * F{* Station-) 

TS = TScurrent 

aDay * currDay 

success = False 



Select Case d 
Case "Right" 
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F.FindNext "StartTS > • & Str(TS) 
success - Not F.NoMatch 
If success Then 

TS = F("StartTS') 

F .MoveNext 

If Not F . EOF Then 

If F("StartTS" ) * TS Then 
infoArrows "down" 

Else 

infoArrows •none' 
End IE 

ElBe 

info Arrows "none" 
End If 

F. Move Previous 
End if 
Case "Left" 

F.FindPrevious "StartTS < ■ U StrlTS) 
success » Not F.NoMatch 
If success Then 

TS o F( "StartTS*) 

F.FindFirst 'StartTS = * fit Str(TS) 
TS = F< "StartTS*) 
«*H*«J3b«^H/p £ -5 frf- x ^ ^ 
F . MoveNext 
If Not F . EOF Then 

If F( "StartTS*) = TS Then 
infoArrows 'down" 

Else 

infoArrows "none" 
. . End If 
Else 

infoArrows "none • 
End If 

F .MovePrevious 
End If 
Case "Down* 

If NProgs < 1 Then Exit Sub -do nothing if all snapshots empty 
aDay * aDay + 1: TS = TS + 48 
While Not success And aDay <- NDays 

Set F * f ilterDat© (aDay) 

F.FindFirst "StartTS > ' & Str{TS) 

If F.NoMatch Then 

If Not F. EOF Then F.MoveLast 
If Not F . EOF Then 

success - True 

TS F( -StartTS") 
End If 
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marker = F . Bookmark 
best =* FCStartTS* ) - TS 
F.FindLast "StartTS <* " & StrlTS) 
If F.NoMatch Then 

F. Bookmark - marker 
TS - TS + best 

Else 

If TS - FCStartTS') > best Then 

F. Bookmark = marker 
TS ~ TS ♦ best 

Else 

TS = F{ -StartTS*) 
End If 
End If 

success « True 
End If 

aDay = aDay + 1: TS = TS + 48 

Wend 

aDay = aDay - 1: TS - TS - 48 
I f success Then 

F.FindFirst "StartTS = " & Str(TS) 

If F.NoMatch Then Scop 'how did we get a TS with no program in it? 
TS = FfStartTS") 

F . MoveNext 

If Not F. EOF Then 

If F( "StartTS") ■= TS Then 
infoArrows "down" 

Else 

infoArrows "none" 
End If 

Else 

infoArrows "none" 
End If 

F . MovePrevious 
End If 
Case "Up" 

■F-^BttH^&U ^M^Y A*ny hfciSv*J^fc*iMS"i"a -*e slot 

If NProgs < 1 Then Exit Sub * do nothing if all snapshots empty 
aDay » aDay - 1 : TS - TS - 48 
While Not success And aDay > 0 

Set F - filter Data (aDay) 

F.FindFirst "StartTS > " fc Str(TS) 

If F.NoMatch Then 

If Not F.EOF Then F.MoveLast 
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If Wot F . EOF Then 

success • True 

TS * F("StartTS*) 
End If 

Else 

marker = F. Bookmark 
best = F( -StartTS") - TS 
F.FindLast "StartTS <= - & Str(TS) 
If F.NoMatch Than 

F. Bookmark - marker 
TS = TS •+ best 

Else 

If TS - FPStartTS-) > best Then 

F.BootanarK = marker 
TS = TS + best 

Else 

TS c FCStartTSM 
End If 
End If 

eucceEE = True 
End If 

aDay = aDay - 1: TS = TS - 48 

Wend 

aDay «= aDay * 1 ; TS = TS + 48 
If auceesa Then 

n^A©&±^c<fc S z t £6fc££ 

F.PindFirst 'StartTS = - & Str(TS) 

If F.NoMatch Then Stop m^^O^PiZtjiW^iZ £-5-?>3>T T S £f$fc£>*>? 
TS *= F ( "StartTS ■ ) . - - 

F . MoveNext 

If Not F . EOF Then 

If F ( "StartTS* ) = TS Then 
infoArrows •down" 

Else 

inf ©Arrows "none" 
End If 

Else 

infoArrows "none" 
End If 

F . MovePrevious 
End If 
Case "Next* 

F. MoveNext 

if Not f.eof Then 

success = F ("StartTS- ) = TS 
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End If 

If success Then 
F.MoveNext 
arrows = "up" 
If NoC F.EOF Then 

If F ( "StartTS* ) - TS Then arrows = 'both" 

End If 

F.MovePrevious 
infoArrows arrows 
End If 
Case "Prior" 

F . Move Previous 
If Not F.BOF Then 

success = FCStartTS") = TS 
End Tf 

h 

if success men 

F . Move Previous 

arrows - "down" 

If Not F.BOF Then 

If FCStartTS 1 ) = TS Then arrows = -both" 

End If 

F . MoveNext 

infoArrows arrows 
End I£ 

Case "none" _ M . 

If Not F.EOF Then 
F . MoveNext 
arrows = "none" 
if Not F.EOF Then 

If FCStartTS") = TS Then arrows = "down" 
End If 

F . Mov« Previous 
infoArrows arrows 
End If - 
End Select 



If success Then 

TScurrent - FCStartTS") 
currDay - aDay 
DisplayProg 

Else 

filterData( currDay) .Bookmark * current 
End If 

TSBegin - DateDif f ( "n" , refDate. (startTime + currDay - 1J) \ 
TSEnd = TSBegin + slotsPerDay - 1 
End Sub 
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Sub DisplayProg {) 

Dim F As snapshot 
Dim msg As String 

Set F = f ilterData(currDay) 

msg - StationString(F{ "Station" ) ) fc * : " & Format (F( "Start * ) , -hrmraAM/PM") 
msg = mso k ' to " k Format (P< 'Finish* ) , "h:nm AM/PM, ■> 
msg = msg fit Format (F( "Title* H 

msg = msg k Chr(13) k '(episode info here)" ' & Format (F( 'Episode* ) ) 

Setlnfo msg, ColortF (colorField) Hod 9) 

shpProg(O) .visible = False 
selector .Visible « False 

Position snpProg(O), F t " StartTS" ) # FCFinishTS* ) 
CPlace 0, selector , shpProg(O) 
8 hp Prog (0 > .Visible = True 
selector .Visible « True 
End Sub 

Sub DoPreview < ) 

Dim msg A* String 

msg = -filterData (currDay) ( 'Title*) 

msg = msg £ Chr(13) & 'on ■ & StationString f filterData (currDay) I "Station" ) ) & 
Chr ( 13 ) 

msg = msg & CategoryStringl < filterData (currDay } < •Type - } ) , 

I filterData (currDay) ( "Category" ) ) ) 

msg = msg & Chr(13) & DayString (Weekday < filterData (currDay) ( "Start") ) r "long") 
msg - msg & *, ■ & Format (filterData (currDay )( 'Start ') , -iwnra d, yy h;mm AM/PM") 
msg s msg & Chx(13J & ' to ■ & Format ( filterData (currDay) ( *F in iah H > , *h:mm 

AM/PM") 

popup . Capt ion = msg 

SireAControl popup, (lblTime(l) . top «■ 1.5 * lblTixtie (1) .Height) , 12. 
(lblDay(l) .Width) . C5 

popup. Visible = True 

inPreview = True 
End Sub 

Sub DoS elect ( ) 
4zl^S/a>#©;r-*fc-tr v h U TVlZ'd< 

userStation = filterData ( currDay )( "Station* )* 
userStart = filterData (currDay) ( " Start ■ J 
* retumCode = TOTV 
Me. Hide 
End Sub 

Sub DrawProg (duplicates As Integer, index As Integer) 
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shpProg(0 > (±3 £ U v * D >r - a > £ & £ ^ S 
Dim above, below, side, wide 
Const GAP = .3 

above = shpProff 10). top 
below = shpProa(O) .Height 
side = shpProg(O) .Left 
wide = shpProg (0) .Width 

ForeColor = blackCOLOR 'line color, thin black outline 
FillStyle = 0 'solid 
drawwidth = 1 

Select Case duplicates 
case 0 

fillColor = Color (index) 

Line {side, above) -(side + wide, above + below - .5 • GAP). , B 
Case 1 

# *a # u - -e *® s - * r * 

fillColor = greyCOLOR £&£^T (*n<*£fc© 

Line (side, above) -(side + wide, above ♦ below - .5 * GAP), , B 

above « above + GAP 
aide - side + GAP 
wide <= 2 * GAP 
drawwidth = 2 

Line (side, above)- (side + wide, above + wide) 
Line (side, above * wide) -(side * wide, above) 

Line (side, above *■ . 5 * wide) -(side * wide, above + .5 * wide) 
Line (side + -& * wide, abovej-tside * .5 * wide, above * wide) 
Case Else 

End Select 

End Sub 

Sab Form_Activate () 

Dim 1 as integer 13*5 
Static saveFilter As String 

If BaveFilter ■ userString Then saxneFilter = True 
saveFilter = userString 

SetStatua 'This Week: * & userString, greyCOLOR 

If Not eameFilter Then 
Ke.ClG 

Setlnfo "Loading program inf orraation . . . ■ , GREY 

shpProg(O) .Visible = Falc* 

selector. Visible = False 

infoArrows "none" 

DoEvents 
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ApplyFilter 
MafceDieplay 
sameFilter = True 
End IE 
End Sub 



Sub Form.KeyDown (KeyCode As Integer, Shift As Integer) 
Dim index. As Integer 
Dim n As Integer 
Select Case KeyCode 
Case AscCQ-) 

Ead 
Case B — BACK 

retumCode = BACK 

Me . Hide 
case B_HELP 

sameFilter » True 

InvokeHelp 
Case B_PREvTEW 

If inPreview Then 

inPreview • False 
popup .Visible • False 

Else 

inPreview = True 

End l£ 
Case B_RIGHT 

ChangeSel ("Right' ) 
Case B_LEFT 

ChangeSel (-Left") 
Case B_OP 

ChangeSel ("Up") 
Case B_DOWN 

ChangeSel ( "Down" ) 
Case B_S£LECT 

if wot f ilterData (currDay) .EOF Then DoSelect 
Case B_PAGEDOWN 

ChangeSel ("Next") 
Case B_PAGEUP 

ChangeSel ( -Prior") 
Caee B_FILTER 

fnnSclcctCJS9Sffcfc*Y 

returnCode « PICK 

Me. Hide 
Case B_0 

returnCode = SHORTCUT 

Me. Hide 
End Select 
If inPreview Then 

Do Preview 

Else 

popup. Visible = False 
End If 
End Sub 
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Sub Fortr\_koad () 

Dim i As Integer 

Me. BacfcCoLor * tonnCOLOR 
shpProg < 0) . BacXColor = BorderColor 
lblDay I 0) . BackColor = backgroundCOLOR 
selector . BorderColor = BorderColor 
dayLine (0} . BorderColor = divideCOLOR 
IblTime 10) .ForeColor = slotCOLOR 
shps lot to ) .BorderColor = slotCOLOR 
in foPanel .Font Size = roediumFONT 
if displayMode = •TV' Then 

lblDay 10) .Font Size = smallFONT 

IblTime (0) .FontSize = smallFONT 

popup. FontSi2e * mediuraFOKT 

Else 

lblDay(O) * FontSize « largeFCNT 
lbl Tim* (0) .FontSize = laxgeFONT 
popup .Pont Size » largeFCNT 
End If 

SizeAFono Me, 0, DispTop + DispHeight, DispLeft, diGpWidth 

NDays 7 

NSlotE = 4B 

daywidth - 4 

lblHeight * 2 

infoHeight = 6 

If displayMode = "TV" Thdn 

upAr row. Left = 8950 

downArrow . Le f t = 8950 

timeHeight = 1 

downArrow. top = 650 

upArrow.top « 150 

Else 

timeHeight =1.5 
downArrow. top =1525 
End If 

Me. Scale (0, 0)-(N51ots + daywidth. NDays * lblHeight + 2 * timeHeight * 
inf oHeight) 

selector BorderWidth = 1 

SiaeAControl inf ©Panel, 0, infoHeight, 0, (Me .ScaleWidth> 

infoPanel . Caption = 

inf oPanel .Visible * True 

SizeAControl lblDay{0), lblHeight + infoHeight, lblHeight, 0, dayWidth 
For i = 1 To NDays 
Load lblDay(i) 

IblDay(i) .Caption = DayString(i, 'short* > 

lblDay ( il . top = < i - 1 > * lblHeight + infoHeight * 2 * timeHeight 
lblDay{ i ) .visible = True 
Next i 
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SizeAControl lblDaytOI. infoHeight. tiroeHeight, dayWidth, NSlots 
lblDAy(O) .Caption = "AM NOON PM" 

lblDay(0> .Visible = True 

SizeAControl IblTimetO] , I lblDay < 0 ) .Height) + infoHeight, tiraeHeight, 0, 2 
For i s 1 To NSlots \ 2 
Load lblTime(i) 

IblTimeU J .Caption = TimeLabel <DateAdd( "h" , (i - 1), f okeTODAY ) 1 

lblTiinef i) .Left = 2 * i * 2 

lblTimel ii .Visible = True 
Next i 
NProge = 0 
saraeFilter = False 
InputData 
Form_Activate 
End Sub 

Sub infoArrows (direct As String) 

Select Cose direct 
Case "up" 

aownAr row. Visible ~ False 

upAr row, Visible « True 
Case "down" 

upArrow. Visible False 

downArrow. Visible - True 
Case "both" 

upAarrow.Vieible - True 

downArrow. Visible - True 
Case "none • 

up Arrow. Visible * False 

downArrow. Visible = False 
End Select 
End Sub 

Sub InputData () 
formjoadc9&5# 

Dim DB As database 

Dim Re f Snap As snapshot 

Dim i As Integer 

Set DB * 0penDataba9e(TVDB) 

Set RefSn&p = DB . CreateSnapcho t I "Reference" > 
RefSnap.FindFirst "Name = 'Date'" 
refDate = DateValue (Rof Snap { 'Data" > ) 
RefSnap. FindFiret 'Nam© = 'NStatione'- 

Set allData(O) - DB . CreateSnapshot (" Programs • ) 
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startTime = re f Date 
TS Beg in = 0 

TSEnd = TSBegin +48-1 
For i = 1 To 7 

allDatalO) . Filter = Overlap (TSBogin * 48 * (i - 1). TSEnd + 48 * <i 1)) 
Set allData(x) - allData (0> . CreateSnapshot () 
Next i 

Set allData<0> - Nothing & *5£.XG>T— # £ — Lfct^ 
End Sub 

Sub MafceDi splay <) 
X <? 'J — >±£ * <T V a - )Yr 4 'A ZTV-i SrfEfiS 
Dim i As Integer 'counter 
Dim d As integer 'day 

Dim TSlast As Integer * last time slot affected 
Dim F As snapshot 'convenience 

Dim offset As integer 'used twice: dayline offset & number of programs sharing a 
time slot 

drawwidth ■= 2 

ForeColor - lbLDay( 0) -BaekColor 
offset <= infoHeight + 2 * timeHeight 
For i = 0 To NDays 

Line (0, offset + i * lblHeight ) - (52 , offset + i " IblHeight) 
Next i * 



offset = o fSSO^^ A^n*v h&¥<D&&yjvicU-?X\<>Z>frt"yy*&ffi\J2> 

colorField = -Category* ft : Z f\lt(%t> % fcl'Type' X&Z'*** ? 
For d = 1 To NDays 
cur r Day = d 
TSlast = -1 
Set F « filterDatald) 
II Not F . EOF Then 
F . MoveFirst 
Do While Not F . EOF 

If F I "StartTS* ) = TSlast Then - 
offset = offset + l 
DrawProg offset, -1 

Else 

offset = 0 

Position shpProg(O), F ( 'StartTS* ) § F( •FinishTS- ) 
DrawProg offset, F < colorField) Mod 9 
TSlast = F< -StartTS" ) 

End If 

F . MoveNext 

Loop 

F .MoveFirst 
End If 
Next d 
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d - 1 

currDay = 1 
While d <= NDays 

If f il terData (d> .EOF Then 
d « d ♦ 1 

Else 

NProgs = 1 tziz^ntoio^-c&zzh&m&Tzrzto 

currDay - d 
d = NDays + 1 
End If 

Wend 

shpProg(O) . ZOrder 
s e 1 ec t or . ZOrder 

If Not fil terData (currDay) .EOF Then 

TScurrent « f ilCerData(currOay) (• Start TS* > 
Display Prog 
ChangeSel • none " 
End If 
End Sub 

Sub Position (shape As Control, start, finish) 

Dim leftTS 

Dim rightTS 

Const* smallGAP s= .1 

leftTS e start * 48 * (currDay - 1) 
rightTS = finish - 48 * (currDay - 1) 

shape. Left = dayWidth 4- leftTS 

shape. Width * rightTS - leftTS + 1 - smallGAP 

If shape. Left < dayWidth Then 

shape. Width = shape. Width - (dayWidth - shape. Left) 

shape. Left - dayWidth 
End If 

shape. Heigrht = 2 - 2 * amallGAP 
shape, top = lblDay ( currDay) . top + sroallGAP 
End Sub 

Sub Setlnfo (meg Ae String, Color) 

infoPanel .BackColor = Color 
infoPanel .Caption « msg 
End Sub 

[0 0 4 0] 
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Option Explicit 

* -finery H5^5^*t:y-S/3>*ffl^s 

Dim allData(8] Ae snapshot 'oil data within time period 

Dim filterData(8) As snapshot liSf<J©^U©Xf ^ *7*sa y h 

Dim NDays As Integer 7 s < XTTV'f WOB^OR 

Dim NSlote As Integer ^^l^V^YA^Py h£>& 

Dim NProgs As Integer ^ Y X ^U' <i f*?<2#IB<Dg£ 

Dim NStation As Integer r^X ^"U -f f*J<0/ejj£)]|fc 

Dim MaxStation As Integer ^-~Xf*J0.>^O'agt£S( 

Dim colorField As String ll*5-^^tiT-^^-^7-f-^ H 

(7 <-)\> Hi lo0>fflR£-5tr*<&) 

Dim inPreview As Integer ;K * L _ /Hia- ri s IBfefU£lE UV^ 

Const sideGap - .05 #*g0>5§£& tf^Tt^V^TX 

Const topGAP « 4 BMB^/l*fcfi|CTa)#aB©|IBfc: 7. 

Dim refDate 5 s — ^ #4 £X D y hffiCD 'J 7 7 U >XBtt 

Const lblHEIGHT * 40 Eft Zftta^WStt ( 5 0 0 XT— 

Const MINProgWidth = .2 X M>d4R£ ,UTSI§0>fl$08'J*H 

Dim siotsPerDay As Integer — Bfclrt&iifz X □ y h 

Dim currOay As Integer ^H©Bt 

Dim startrime 7*4 ©^teBftf £a$RS 

Dim TSBegin As Long S^OCO^^ /*X D y h 

Dim TSEnd as Long &.Vk(D<9 4 AX P y K 

Dim TScurrent As Long M&ft&'i AX P »y ^ 

Dim rowOffset JXirS/i— ;tdtO (_t<D) ?0©fHJCDjESg 

Sub Appl^Pilter (> 
^x»;^hiJ>// 7 ^;^ (TV) 117^ y h-T^TVSMfc:ltCD7=-^-b^ h&ftS 

- Dim i As Integer 'XiOlsf 

If InStr (filters (TV) , 'Station*} Then 
NStation = 10 

colorField «» "Type* 

Else 

NStation - MaxStation 
colorField •» "Category' 
End If 

For i - 1 To NDays 

allDatafi) .Tilter « filterstTV) 

Set f ilterData (i) = allData [ i) . Create Snapshot ( ) 
Next i 
End Sub 

Sub ChangeSel (d As String) 

Dim current, firstMatch r-^^-Xv-^-h LT 

Dire success As Xnteger 

Dire 3 As Integer ^f-J/3> 

Dire TS As Long # >f l x y^ U y h 

Dim f As snapshot 

Dim aDay As Integer 

Dim best As Integer 



current « £il ter-Data (cur rpay J . Bookmark 
Set F = fi Iter Data (currDay) 
s = F( "Station") 
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TS ~ TScurrent 
aBay - currDay 
success = False 



If d = -Right* Then 

F.MoveNext 

If Not F. EOF Then 

success = Ft'StationM ^ s And FfStartTS') = TS 
End I f 

if Not success Then 

l- t r.nsparenc hPS1 ° t(T£ " TSBegln + 1 + (CWD * y " 1} * -lofFw, . Pili fityle . 

O'transparen^ 1 ^^ 5 ' TSB<!9in + 1 * (CUrrDfly " l > ' ^OtsPerDay) . BackStyle . 
While aOay c= NDays And Not success 
While TS * TSEnd And Not success 
T3 *= TS * 1 

F.FindFiret OverleplTS, TS) * -And Station >= - & s 
If P.NoMatch Then 

F.FindLaet Overlap<TS, TS) & -And Station < • ft fi 
suecesa - Not P.NoMotch S 

Else 

success - True 

best - FCStation-) - e 

firstMatch = F. Bookmark 

F. Find Previous Overlap (TS, TS) 
If F.NoMatch Then 

F. Bookmark = firstMatch 

Else 

If s - F < -station") > best Then 
*-©«Lfr1*tti tiffin 
F.Bookniark = firstMatch 
End If 
End if 
End If 

Wend 

If Not success Then 

TSBegin - TSBegin + 48 

TSEnd « TSBegin + slotsPerDay - l 

TS = TSBegin - 1 

aDay = a Day ♦ i 

Set F a f ilterData(aDay) 
End If 

Wend 
End if 
Elseif d = 'Left- Then 



(85) 



*SM ¥8-292866 



F . Move Pre vi ous 
If Not F.BOP Then 

success = F( 'Station*) = s And F( "FiniehTS" > « TS 
End If 

If Not success Then 

shpSlot(TS - TSBegin * 1 + (currDay - 1) • slotsPerDay ) . Fi UStyle =■ 
1 ' transparent 

IblTimefTS - TSBegin ♦ 1 + (currDay - 1) • slotsPerDay) .BackStyle - 
0* transparent 

While aDay >« 1 And Not success • for each day to left 

While TS > TSBegin And Not success &F\<D£$)Q>X P <y h feflg-J" 
TS = TS - 1 

F.FindFirst Overlap (TS. TS) 4 * And Station >« ■ 6 Str[e) 
If F.NoMfttCh Then 

F.FjjidLast Overlap (TS, TS) 
success = Not F.NoMatch 

Else 

success « True 

firatMatch ■ F. Bookmark 
best = Testation*) - s 

F.FindPrevious Overlap (TS, TS) 'will be less than current 

station 

If F.NoMatch Then 

F. Bookmark - firetMotch 

Else 

If e - F( 'Station") > best Then 

F. Bookmark = firstMatch 
End If 
End If 

End If 

Wend 

If Not success Then 'try previous day 

aDay = aDay - 1 

TSBegin = TSBegin - 48 

TSEnd a TSBegin + elotsPerDay - 1 

TS = TSEnd ■+ 1 

Set P ~ f ilterData(aDay) 
End If 

Wend 
End If 
Eleelf d = 'Down- Then 

* '/> 3 > fc**^Rttfc'**> ? 

(with exception of first time sloe in each day, of course) 
F. Bookmark « current 

F.FindNext & Overlap(TS, TS) & • And Station <> ■ & Str(s) & 

success = Not F.NoMatch 
Elself d = -Up- Then 
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%LCL®2 4 AXUy I* T_begin_T S&l&^tt :* h *7T6 
X"7>3 

<with exception of first time slot in oach day. of course) 
F. Bookmark *= current 

F.FindPrevious & Ov e rlap(TS. TS) 6 - And Station <> - 6 strlsl A • i ■ 

success = Not F.NoMatch 161 * ' 

El self d * 'Top- Then 

F.FindFirst Overlap (TS. TS) 
success = Not F.NoMatch 
Elself d « 'Bottom" Then 

F.FindLast Overlap (TS. TS) 
success - Wot F.NoM&tch 
End if 

If success Then 

mm 

TSeurr«nt - T3 
currDay - aDay 
Display Frog 

Else 

filter-Data (currDay) . Bookmark « current 
End If 

TSBegin * DateDif f ( -n- , refDate. (startTims + currDay -in \ in 
TSEnd = TSBegin + slotsPerDay - 1 

0-solid SlOCtT3CUrrent " TSBeCin " 1 * «=urrDay - 1) * .i tt t.P W na y} . Fillfityl. - 

I'aJ^V""******* 1 * " TS ** 9in + 1 + <CUrrDay " 11 # SlotsPerDay). BackStyle ^ 
End Sub 

Sub Display Prog () 

Dim F As snapshot 
Dim msg As String 

Set F = filt&rDat & (currDay) 

shpProg(O) .Visible = False 
selector. Visible = False 

Position shpProc(O). F {-Start"), F(-Finish'). Flotation") 
CPlace 0. selector, shpprog(Q) 
shpProgtO) .Visible * True 
selector .Visible = True 

meg = StationString (F ( -Station* ) ) & • - • a FCTitle") & - - 
msg = mS g & Format <F{ "Start •) , "hriran AH/PM' > 
msg = sis? fc ' to - fc Format <F< -Finish- 1 , 'h:nun AM/PM-) 
Set Info msg, Color (F (color Field) Mod 9) 
End Sub 
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Sub Do Preview () 
& W y \,K a - • y v * _ v t ^ 4 x y v j ^ m & 
Dim rasg As String 



msg 
rasg - itlsq 



-Station: - & StationString ( filterData (currDay) ( * Station * ) ) 
rasg & Chr(13) & 'Title: - & filterData teurrDayM -Title- ) k Chr(13) 
rasg = msg & CotegoryString( {filterData (cur rDay) { ■ Type" ) I 
( filterData tcurrDay) ("Category) ) ) 



msg = msg & Chrll3) & "Time: - & Forraat< filterData (cur r Day) (' Start " ) Viimm d ~, 

h r inni 



h:rnro AM/PM" ) 

msg = msg & Chx<13) & - to " & Format ( filterData fcurrDay) I "Finish- I 

AM/PM") ' 



popup. Caption = msg 

popup. Top ■ IblTimeU) .Top + 2 * lblTime(l) .Height 
popup. Left = 2 

popup. Width = slotsPvrDay * NDaye - 3 
popup .Visible - True 
inPreview ■» True 
End Sub 



Sub DoSelect () 

ucerStation =» filterData (curr Day) ( 'Station* I 
user-Start - filterData ( currDay) (• Start • ) 
. retumCode = TOTV 
Me. Hid* 

End Sub 



Sub Fonry^ctivate () 

Dim i As Integer • counter 
Static saveFilter As string 

rf saveFilter - f il ters (currDomaini Then saroeFilter = True 
saveFilter = f i 1 cers (currnomain) 

SetStatus -Evening TV; ■ & currFilter (TV) , greyCQLOR 

If inPreview Then 

popup. Visible = False 

inPreview » False 
End If 

If newUser Then 

-™'5?nir* * 'J™" " Cate90ry ' to ch «"* e the °f programs diplayed. 

popup. visible - True 1 

y= : xvrr v 7#7n* rusk** v-t j^tsh** J;^ tt«^ 

newUser « False 
End If 



If sameFilter Then 

If TScurrent > 0 Then 
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ehpSlot(TScurrent - TSBegin ♦ 1 * (currDay - 1) * slotsPerDay) -FillStyle 

c 0' solid 

lblTirne(TScurrent - TSBegin ♦ 1 + (currDay - 1) * slotsPerDay) . Backs tyle 

= 1' solid 

End If 

Else 

Setlnfo •Loading program inf ormation. . . ■ , GREr" 

chpProg(O) .Vi Bible = False 

lblDay(O) .Visible = False 

lblTimeCO) .Visible « False 

shpSlot(O) .Visible = False 

selector, visible = False 

For i = 1 To NProgs 

unload shpProgti) 
Next t 
Apply Filter 
ttakeDi splay 
aameFilter - True 

Eftd If , 
End Sub 

Sub FonruKeyDovn (KeyCode As Integer, Shift As Integer) 

Dim Index Ae Integer 
Dim n As Integer 
select Case KeyCode 
case AscCQ'i 

End 
Case B_RACK 

shpSlot (TScurrent - TSBegin + 1 + (currDay - 1) * slotsPerDay) . FillStyle = 
1 ' transparent 

lblTime {TScurrent - TSBegin +14- (currDay - 11 * slotsPerDay) . BackStyle = 
0 ' transparent 

retumCode «= BACK 
He. Hide 
Case B_HELP 

sameFilter = True 
Inv©k«H*Ip 
Case B_ PREVIEW 

If inPreview Then 

popup .Visible » False 
inPreview = False 

Else 

inPreview = True 
End If 
Case B — RIGHT 

If Not f ilterData< currDay) , EOF Then ChangeSel ("Right-) 
Case B_LEFT 

If Not filterData (currDay) .EOF Then ChangeSel Cteft") 
Case B_0P 

If Not filter Data (currDay) .EOF Then ChangeSel ("Up") 
Case B_DOWN 
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If Not f ilterData (currDay) .EOF Then ChangeSel ("Down") 
Case B_S ELECT 

shpslot(TScurrenc - TSBegin * 1 * (currDay - n . elotsPerDay) .Fillstyle . 
1 ' transparent ' 

lblTirne(TScurrent - TSBegin * 1 ♦ {currDay - L) * slotsPerDay) .BackStyle « 
0 ■ cransparent y 
If Nnc tilcerData (currDay) .EOF Then DoSelect 
Case B_ PAGEDOWN 

If Not filterData (currDay) .EOF Then ChangeSel {'Bottom") 
Case B_PAGEUP 

If Not filterData (currDay) .EOF Then ChangeSel ('Top') 
Cose B_FILTER 

l'tran 3 parent° t<TSCUJ:rent " TSBegin * 1 * < cu ^ay - 1) • s lot s PerDay ). Fills tyle * 

0- transparent 16 (TSCUrrent ~ TSBeffln * 1 * < cu ~Day " * slotsPerDay) .Backs tyle = 
retumCode ~ Filter 
Me. Hide 
Case_ B_0 

l'tran Ep ^St° t<TSeUrrent * TSBeSrin * 1 * < currDay - D * a lota Per Day ) .Fillstyle = 

0* transparent <TSCUr ^ nt " TSBegin * 1 * - D * s lot o PerDay) .Backs tyle = 

returnCod© = SHORTCUT 

Me. Hide 
End Select • 
If inPreview Then 

DoPreview 

Else 

popup. Visible = False 
End If 
End sub 

Sub Form_Load () 

Dim d As Integer, i As Integer, n As Integer 'counters 
Dim t 'ae time 

Me.BackColor - EormCOLOR 
shpProg(O) .BackColor «= BorderColor 
lblDay(D) .BackColor «* backgroundCOLOR 
selector. BorderColor » BorderColor 
dayLine(O) .BorderColor * divideCOLOR 
lblTime(O) .ForeColor - elotCOLOR 
shpSlot(O) .BorderColor = slotCOLOR 
If displayMode * "TV" Then 

lblDay(O) . FontSize = smallFONT 

lblTime{0) .FontSize « small FONT 

popup. FontSize = tnediumFONT 

Else 

IblDaytO) .FontSize = largeFONT 
lblTime( 0) .FontSize ■ largeFONT 
popup. FontSize = largeFONT 

End If 
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SizeAFarm Ke, DispTap. DispHeight, DitpLeft, DispWidth 
Me. Scale (0. 0*-(500 r 500) 

SizeAControl lblDay<0|. 0, IblHEIGHT, 0, 500 
SizeACcntrol lblTiroe ( 0 ) , IblHEIGHT, lbl HEIGHT, 0. SO 

SizeAControl shpSlot(O), 2 * IblHEIGHT ♦ .5 ♦ topGAP, 500 - 2 * lb 1H EIGHT, 0, 50 
SizeAControl popup. 250, 200, 250, 200 
selector . BorderWidth = 1 
<aayLine<0> .Yl = 0 
dayLine<0) .Y2 = 500 

initi^Si 
sameFilter = False 
saxneView = False 
inPreview « False 
NProas = O 

NDays = 5 5 Bfffl 

slotePerDay = 6 3B£Rfl, 6 30^^D^h 

NSlots = NDays * slotsPerDay 

staxrtTime « fakeToday «• CVDate ( "7 : 00 FH" ) 9f£fiiB9£*r y h 

activate - 

atertTime » DateAddCd", 2 - Weekday (star dime) , etartTlme) gtartTinc^JJBfibl 
(=2) t-b?r h-TS 

Me.ScaleWidth • NSlots 
lblTime<0> .Width - 1 
shpSlot(O) .Width - 1 
For i = 1 To NDays 

Load lblDay<i) 

SizeAControl lblDay(i), 0, IblHEIGHT, slotePerDay * {i - 1), slotsPerDay 
lblDay(i) .Caption = DayStringli + 1, ■ short") 
lblDay( i) .Visible * True 
Next i 

For d = 1 To NDays 

For i = 1 To slotsPerDay 

n * <d - 1) * slotsPerDay + i 

Load shpSlot(n) 
shpSlot(n) .Move n - 1 
shpslot t n ] . zorder 
shp51ot(n» .visible = True 

Load LbLTime(xi) 
lblTime(n) .Move n - 1 
lblTime(n) .ZOrder 

t « DateAddfn*, 30 * <i - 1), stortTime) 
lblTiotefn) .Caption = TimeLabel (t 1 

shpSlot [ i) .FillStyle - 1 • transparent 
1 bl Time ( i) .BacJcS tyle = 0 • transparent 
lblTime{n) .Visible = True 
Next i 

If d < NDays Then 
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Load dayLine(d) 

dayLine(d) ,X1 = d * slotePerDay 
day Line (d| . X2 = d * slotsPerDay 
End If 
Next d 
InputData 
KomL_Ac t i va t e 
same View = True 
End Sub 

Sub InputData ( ) 
form_load®a5^ 

Dim DB As datebaco 

Dim Re f Snap As snapshot 
Din i As Integer 

Set.DB = Op enD at abase (TVDB) 

Set RefSnap - DB .CreateSnapshot ( "Reference* ) 
RefSnap. PindFirat "Name - "Date*" 
re f Date = DateValue ( Re f Snap { "Data" ) ) 
ROfSnap.FindFiret 'Name = 'NStations*" 
MaxStacion « val {Ref Snap ( "Data" ) ) 

Set allData(O) = DB. CreateSnapshot ( "Programs - ) 

TSBegin = DateDif f ( -n" , refDate, startTime) \ 30 
TSEnd = TSBegin + slotsPerDay - 1 
For i s 1 To 5 

allData (0) .Filter - Overlap (TSBegin + 48 * (i - 1) , TSEnd + 48 * (i - 1) ) 
4 8 M 

Set allData(i) = allData (0> .CreateSnapshot ( ) 
Next i 

Set allData(O) - Nothing 'won't be needing everything since time is fixed 
End Sub 

Sub MakeDisplay t 1 

v -f £ titz r=- pfrt> w o.r >T ^ -;t/£ft=/# 

Dim d As Integer Rft" 

Dim e As Integer 

Dim F As snapshot ffiSlCtt 

Dim haeProge As Integer #£fl<Ot±^ ofcffc- b W £Sdl£ 

If Not eameView Then 
End If 
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hasProgs ■ 0 

c ~ 0 shpProgsCOinit*^ V K 

On Error GoTo ErrorHandler t> t-SO *5 "IT &shpProgB*>Hfc < fcofc i; S 
For d = 1 To NDays 

cur r Day = d 

Set F = filterData(d) 

If Not F.EOF Then 
F.MoveFirst 
Do While Not F.EOF 

Load shpProa(c + 1) 

c = c + i 9jgTava«iL&&c©»JiiiD 

ehpProg(c) .BackColor ■ Color (F (colorField) Mod 9) 
Position shpprog(c). F( "Start* I, F( "Finish- ) , F (-station*) 
shpProg(c) .zorder 
shpProg(c) .Visible » True 
F.MoveNexc 

Loop 

F.MoveFirst 

If hasProgs = 0 Then hasProgs => d 'remember the first day with programs 

in it 

End If 
Next d 

MoveOn : 

On Error CoTo 0 'quit trapping errors internally 

For d = 1 To NDays - 1 

dayLine(d) .ZOrder 

dayLine(d) .Visible = Tru« 
Next d 

NProga = c 
currDay = hasProgs 
shpProg < 0 ) . fcOrder 
selector . ZOrder 
IE currDay > 0 Then 

TSBegin = DateDif f I 'n* , refDate, startTiroe) \ 30 + 48 * {currDay - 1} 

TSEnd = TSBegin + BlotsPerDay - 1 

TScurrent « TSBegin 

Set F - f i Iter Data (curx Day) 

Do While TScurrent < « TSEnd 

F.FindFirst Overlap (TScurrent , TScurrent) 

If Not F.NoMatch Then 
DisplayProg 
Exit Do 

End If 

TScurrent = TScurrent ♦ 1 

Loop 

Else 

TSBegin = DateDif f ("n*. re f Date, startTiroe) \ 30 
TSEnd = TSBegin ♦ slotsFerDay - 1 
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TScurrent » TSBegin 
currDay = 1 
End .If 

shps lot (TScurrent - TSBeoin + 1 ♦ (currDay - II 
0' solid 

lblTime( TScurrent - TSBegin + 1 i (currDay - II 
1 • opaque 

Exit Sub 



29 

clotsPerDay) .PillStyle = 
slotsPerDay) .BackStyle b 



ErrorHandler : 

If Err = 342 Then 

•ran out of room to allocate program shapes, quit drawing 
Resume Move on 

Else 

Dim rasg 

rosg = Error & Chr(13) k "Resume or Cancel?" 
msg - XnputBox(insg, "Error Correction*, •Resume*) 
If msg = " Then stop 
Resume MoveOn 
End If 
End Sub 



Sub Position (shape As Control, start, finish, station) 

Dim relatively relativeW, dayStart 
Dim edge' 

dayStart = BtartTime + currDay - 1 

relativeL » (stare - dayStart) * 48 

relativeW = (finish - dayStart I * 48 - relatively 

If relativeL < 0 Then 

relativeW = relativeW + relativeL 

relativeL ■ 0 
End If 

If relativew + relativeL > slotsPerDay Then relativeW «= slotsPerDay - relativeL 

edge = (currDay - 1) * slotsPerDay 
shape. Left s relaciveL + edge * sideGap 
shape . Width = relativeW - 2 * sideGap 

*a*«H*»fw mm&SLi a & 5 c 1* s 

If shape. Width < MINProgWidth Then shape. Width « MINProgWidth 

rowOffset = ((500 - 2 * lblKEIGHT - sbpprog <0) . Height ) / NStation) 
chap©, Top - shpSlot (0) . Top + topGAP ♦ (station * 1) * rowOffset 
End Sub 
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A. KOIKE & CO. 

CERTIFIED PATENT ATTORNEYS 

No. 1 1 -Mori Bildg., No. 6-4, Toranomon 2-chome, Minato-ku, Tokyo Japan 
Tel:(81)3 3508 8269 Fax:(81)3 3508 0439 Telex:2223384 KOINTP J 

MESSRS. 

FROMMER, LAWRENCE & HAUG, L.L.P. 



745 FIFTH AVENUE, NEW YORK, NY 10151 
U.S.A. 




YOUR REF : 

OUR REF :SK99PCT89US 
SONY REF :S99P1356US00 

DATE: 12 July 2000 

RE: New Application resulting from PCT 
Application No. PCT/JP99/067 12 
Filed on 30 November 1999 
Priority date: 30 November 1998 
A pplicant/Assignee: Sony Corporation 

Dear Sirs: 

Please file a new patent application resulting from PCT or International 
Application on or before the applicable time limit in order to enter the national stage or 
phase in U.S.A., according to the instructions and information shown on the pages 
enclosed herewith. 

Please note that 20 months date from the priority date is 30 July 2000 . 

Please give us acknowledgment of this order and inform us of entering the national 
phase with only the amended pages as filed to avoid sending us a copy of all the 
documents. 

Yours faithfully 

EIICHI TAMURA, Patent Attorney 
A.KOIKE & CO. 
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